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Thi«  doeisMiit  prcamtc  tiM  thaory,  prograa  philosophy,  and 
oparating  Inatruetlona  for  tha  Siwilatlon  Error  Analyaia  Syataa 
(OOtm  5B).  Aa  a  Joint  affort  undartakan  by  tha  tCAF  Dlractorata  of 
^ataaa  Evaluation  and  tha  USAF  496L  Syataaa  Frojaet  Offlca,  tha  eonputar  - 
ayataa,  davalopad  at  Aaronutronle,  provldaa  an  autonatlc  naana  with  which 
tha obaarvationa  of  a  apaelflad  orbit  obtalnad  froa  a  aanaor  natwork  nay 
ba  alaulatad  and  analyaad,  yielding  tha  uncertainty  In  tha  orbit  alaamta 
due  to  tha  obaarvatlonal  Inaccuraclaa.  Tha  ayataa  alao  provldaa  tha 
capability  of  predicting  future  position  and  velocity  arrora  cauaad  by 
the  uncertainty  In  tha  orbit  alaaMmta. 

The  praaantatlon  of  tha  docuaant  ia  awde  in  looaa  leaf  binder 
fom  with  the  undaratandlng  that  tha  ayatan  will  not  raaMin  atstlc. 

Bather,  It  will  ba  In  a  constant  state  of  nodlfleatlon,  adhering  to 
raqulrasMnta  for  spaclallaad  slaulatlona  and  lavrovad  error  analyaia 
tacfanlquaa.  With  thla  design  concept  therefore,  the  user  nay  anticipates 
a  aarlas  of  revisions  for  future  incorporation  in  the  prograai  docuaent. 
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SECTION  1 

INTRODUCTION 


A  cooperative  program  of  work  has  been  undertaken  by  the  RCAF 
Directorate  of  Systems  Evaluation  (DSE)  and  the  USAF  496L  Systems  Project 
Office  to  provide  a  background  of  knowledge  which  can  be  applied  to  a 
broad  range  of  problems  concerning  satellite  detection,  tracking,  orbit 
determination,  and  prediction  of  future  satellite  positions,  Aeronutronlc 
has  assumed  a  major  portion  of  the  program  development  through  the  496L 
SPO,  with  the  specific  responsibility  of  computer  program  design,  prep¬ 
aration,  and  development. 

At  the  time  that  this  Joint  program  was  Initiated  (March  19^2), 

DSE  was  engaged  In  an  overall  study  of  the  system  requirements  for  orbital 
rendezvous  between  two  space  vehicles  and  496L  SPO  was  engaged  In  the 
development  of  computer  programs  for  tracking  and  cataloguing  existing 
and  future  satellites.  One  phase  of  the  DSE  study,  known  by  the  code-name 
COSINE  (Co-orbltal  Satellite  Inspection  Evaluation),  was  of  common  Interest 
to  both  the  RCAF  and  the  USAF  and  as  such  was  undertaken  as  a  Joint  study. 
This  study  concerns  Itself  primarily  with  the  problems  of  Initial  detection, 
tracking,  orbit  determination,  and  prediction  of  future  satellite  position. 

The  experience  of  both  agencies  In  their  respective  fields  led 
to  the  design  and  production  of  a  computational  system  to  be  used  In  this 
study.  This  document  contains  a  complete  description  of  the  system  In 
Its  present  form.  As  a  continuing  effort,  the  system  and  the  documenta¬ 
tion  will  be  revised  and  augmented  In  the  coming  months.  This  philosophy 
accounts  for  the  notebook  presentation  of  the  program  manual. 

The  title  Simulation  Error  Analysis  System  has  been  assigned  to 
the  computer  programs  written  by  Aeronutronlc  for  the  496L  SPO.  Opera¬ 
tionally,  this  system  will  be  used  In  the  COSINE  5  phase  of  the  DSE  study. 

It  greatly  Intensifies  an  earlier  program  for  this  phase  known  as  COSINE 
5A,  and  has  subsequently  been  assigned  the  code  name  of  COSINE  SB.  The 
two  designations.  Simulation  Error  Analysis  System  and  COSINE  SB,  are 
synonymous  and  differ  only  because  of  the  historical  background  In  the 
system  development. 
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The  basic  philosophy  and  gross  features  of  this  progranning 
system  are  presented  in  the  remainder  of  this  section.  Subsequent  sections 
provide  the  user  with  the  program  operating  instructions,  major  program 
unit  descriptions,  executive  program  description,  subroutine  specifications, 
data  block  and  card  formats,  and  system  test  cases. 

The  Simulation  Error  Analysis  System  has  been  developed  for  the 
Phllco  2000  computer,  making  extensive  use  of  the  Phllco  2000  Operating 
System  (SYS). 


1 . 1  PROGRAMING  SYSTEM 

This  document  describes  the  programming  system  fulfilling  the 
requirements  of  the  Simulation  Error  Analysis  System.  The  primary  require¬ 
ment  of  the  Sinailation  Error  Analysis  System  is  to  produce  a  statistical 
analysis  of  the  errors  in  predicting  satellite  position  and  velocity  which 
arise  because  of  observational  inaccuracies.  The  fulfillment  of  this 
specification  requires  the  performance  of  a  comprehensive  set  of  functions, 
many  of  which  are  equally  as  essential  as  the  primary  result.  A  programming 
system  providing  versatility  in  performing  these  functions  is  therefore  a 
fundamental  tool  for  the  execution  of  such  analysis.  Consistent  with 
this  consideration,  the  programming  system  concept  adopted  utilizes  execu¬ 
tive  programs  linking  individual  program  units  in  automatic  sequences.  A 
total  of  eight  sequences  utilizing  combinations  of  seven  program  units 
comprise  the  total  system  to  date.  This  modular  philosophy  thus  provides 
the  desired  system  flexibility  which  will  allow  the  addition  of  new  sequences 
and  modification  of  existing  sequences  in  the  future.  The  first  program 
sequence  fulfills  the  above  primary  requirements  while  seven  additional 
program  sequences  provide  the  necessary  versatility  for  performance  of  the 
required  secondary  functions. 

The  study  objectives  that  may  be  achieved  with  this  modular 
design  system  Include: 

(1)  An  investigation  of  the  accuracy  with  which  the 
orbital  elements  of  a  satellite  can  be  established 
for  any  given  network  of  ground  based  sensors  and 
given  performance  characteristics  of  each  sensor 
in  the  network. 

(2)  An  assessment  of  the  effectiveness  of  sensor  net¬ 
works  and  the  extent  to  which  any  one  sensor  in  the 
network  can  affect  orbital  elements  of  a  satellite 
established  by  the  network  as  a  whole.. 
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(3)  A  study  of  the  effect  of  smoothing  time  between 
successive  observations  of  a  sensor  on  the  accuracy 
of  orbit  determination. 

(4)  An  evaluation  of  the  relative  merits  of  different 
types  of  sensors  In  which  measurements  are  used 
to  establish  the  orbit  of  a  satellite. 

(5)  The  determination  of  the  requirements  for  performance 
characteristics  (measurement  accuracies,  coverage 
limits,  etc.)  of  a  sensor  or  a  network  of  sensors  for 
different  levels  of  accuracy  In  orbit  determination. 

It  is  important  to  determine  the  measurement  accuracy 
beyond  which  further  improvement  does  not  significantly 
affect  the  accuracy  of  orbit  determination. 

(6)  The  establishment  of  corresponding  levels  of  measure¬ 
ment  accuracy  among  different  types  of  sensors  to 
ensure  given  levels  of  accuracy  of  orbit  determination. 

(7)  The  determination  of  the  extent  to  which  the  number 
of  observations  taken  by  a  given  sensor  affects  the 
quality  of  the  computed  orbit  and  whether  there  is 
a  point  beyond  which  additional  observations  do  not 
contribute  a  significant  Improvement  in  the  accuracy 
of  a  computed  orbit. 

(8)  An  investigation  of  the  effect  of  observing  selected 
segments  of  a  pass  over  a  sensor  for  use  in  providing 
observation  schedules  for  sensors  which  are  required 
to  observe  many  satellites  in  orbit  at  the  same  time. 

(9)  An  investigation  of  the  existence  of  any  correlations 
in  the  errors  present  in  the  computed  orbital  elements. 

(10)  The  frequency  distributions  of  the  errors  in  orbital 
elements  that  can  be  tested  for  goodness  S‘f  fit  with 
assumed  distribution  laws.  If  consistency  with  any 
given  law  can  be  established,  analytical  methods  may 
then  be  used  to  obtain  the  expected  errors  in  orbital 
elements  from  a  knowledge  of  the  sensor  performance 
characteristics . 
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(11)  An  evaluation  of  the  accuracy  with  which  a  satellite 
position  can  be  predicted  at  some  time  after  the 
last  sensor  observation  was  possible.  This  Is  an 
Important  requirement  In  some  military  and  scientific 
operations  (such  as  orbital  rendezvous) . 


1.2  PROGRAM  SEQUENCES 

The  program  sequences  consist  of  various  combinations  of  the 
following  seven  program  units: 


Acquisition  Time  Intervals  AQTINT 

Observation  Simulation  OBSIM 

Monte  Carlo  MOCARO 

Differential  Correction  SGPDC 

Element  Error  Distribution  DCDIST 

Error  Prediction  ERP 

Prediction  Distribution  ERPDIST 


A  detailed  description  of  each  program  unit  Is  presented  In  Section  3.  A 
diagram  schematically  representing  all  of  the  program  sequences  with 
corresponding  program  units  is  presented  In  Figure  1-1,  which  also  contains 
a  brief  summary  of  each  program  unit  function. 

The  information  processing  steps  for  all  sequences  are  illustrated 
by  Figure  1-1.  Figure  1-2  is  an  expansion  showing  the  outputs  of  individual 
program  units.  Both  figures  specify  the  entrances  and  exits  for  each  of  the 
sequences  1  to  8,  Indicating  the  program  units  utilized  by  each  sequence. 
These  figures  illustrate  the  application  for  each  sequence. 

The  Information  processing  steps  In  Sequence  1  are  as  follows: 

(1)  After  Simulation  Error  Analysis  (SEA  1)  is  loaded  In 
core,  the  program  begins  by  processing  all  input  case 
data  and  loading  It  In  the  required  core  locations. 

The  simulated  sensor's  observational  accuracies  repre¬ 
sented  by  fixed  values  of  standard  deviations  and  bias 
errors  are  stored  in  core  location  SGBLOC.  The  param¬ 
eters  used  to  simulate  the  sensor  observing  patterns 
are  stored  in  location  IBLOC.  Sensor  coordinates  are 
loaded  in  core  location  SBLOC.  The  true  satellite 
orbital  elements  are  loaded  Into  location  EBLOC. 
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(2)  The  data  (EBLOC,  SBLOC,  IBLOC)  are  processed  by  the 
AQTINT  Program  Unit  to  provide  the  times  when  the 
satellite  Is  observed  by  the  sensors.  These  acqui¬ 
sition  times  are  stored  In  location  TBLOC, 

(3)  Using  the  data  (TBLOC,  EBLOC,  SBLOC)  the  OBSIM  Pro¬ 
gram  Unit  provides  a  set  of  simulated  observations 
which  are  loaded  In  the  Observations  block,  OBLOC. 

(4)  The  MDCARO  Program  Unit  provides  K  sets  of  contam¬ 
inated  observations  utilizing  the  sensor  accuracy 
data  previously  stored  In  SGBLOC.  A  Monte  Carlo 
technique  Is  used  to  generate  random  sensor  errors 
from  the  normal  distribution  of  errors  with  the 
given  fixed  standard  deviation.  These  random  errors 
and  given  bias  errors  are  added  to  the  simulated 
observations,  thus  contaml:.~.clng  them  In  order  to 
represent  actual  sensor  measurements.  The  contam¬ 
inated  observations  are  stored  in  the  contaminated 
observations  block,  COBLOC. 

(5)  Residuals  In  observations  (observed  minus  computed) 
are  formed  and  a  differential  correction  of  the  true 
orbit  elements  Is  performed.  Computed  observations 
are  those  obtained  by  representing  the  true  satellite 
orbital  elements  In  EBLOC.  The  Differential  Correction 
Unit,  SGPDC,  determines  a  new  set  of  elements  which 
best  fit  the  observations  according  to  a  least  squares 
of  residuals  method.  A  rejection  option  Is  Included 

to  reject  large  observation  residuals  on  an  absolute 
basis  and  also  on  a  relative  basis.  The  contamination 
and  correction  procedure  Is  repeated  for  the  K  sets 
of  observations  and  produces  K  sets  of  variant  elements 
which  are  then  stored  In  the  variant  elements  block, 
VEBLOC. 

(6)  Errors  In  elements,  variant  minus  true,  are  .computed 
and  a  statistical  analysis  is  performed  by  the  OCDIST 
Program  Unit.  For  each  element  error,  the  minimum, 
maximum,  mean,  and  standard  deviation  Is  computed  and 
a  frequency  distribution  performed. 
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(7)  The  position  and  velocity  vectors  of  the  satellite 
are  predicted  by  the  ERP  Program  Unit  at  selected 
points  from  each  of  the  variant  element  sets.  Errors 
are  computed  relative  to  the  input  element  set  for 
each  of  the  position  and  velocity  coordinates  and  the 
vector  magnitudes  and  are  stored  in  the  delta  position 
and  velocity  block,  DPVBLOC. 

(8)  Two  types  of  statistical  analyses  are  performed  by 
the  ERPDIST  Program  Unit.  In  one  type,  the  minimum, 
maximum,  mean  error,  plus  the  standard  deviation  are 
computed  and  a  frequency  distribution  is  performed 
for  each  error  quantity  in  DPVBLOC.  In  the  other 
type,  the  mean,  maximum,  and  standard  deviation  of 
the  position  and  velocity  coordinates  and  the  vector 
magnitudes  for  selected  points  in  each  quadrant  of 
the  orbit  are  treated  as  error  quantities.  Their 
respective  minima,  maxima,  means,  and  standard  devi¬ 
ations  are  computed  for  each  of  the  four  quadrants 

of  the  orbit.  This  latter  feature  provides  the  trend 
in  each  quantity  over  a  segment  of  the  orbit;  for 
Instance,  it  supplies  the  mean  of  the  mean  error  in 
position  over  one  quarter  of  a  revolution. 

Sequence  2  (SEA  2)  enables  one  to  obtain  only  the  acquisition 
times  as  the  sequence  begins  with  AQTINT  and  terminates  at  its  completion. 
Sequence  3  (SEA  3)  will  continue  through  OBSIM,  terminating  after  computing 
the  observational  quantities  corresponding  to  the  times  generated. 

Sequence  4  (SEA  4)  performs  a  function  similar  to  SEA  1,  with 
the  exclusion  of  the  error  prediction.  SEA  4  fulfills  the  objective  of 
an  analysis  where  only  the  element  error  statistics  are  required  and  no 
information  concerning  the  position  and  velocity  prediction  is  desired. 

Sequence  5  (SEA  5)  accepts  elements,  observations,  and  standard 
deviations  and  performs  the  specified  number  of  Monte  Carlo,  Differential 
Correction  loops.  It  then  continues  into  DCDIST  which  produces  a  statistic 
of  errors  in  the  classical  elements  at  epoch.  Finally,  ERP  predicts 
position  and  velocity  errors  at  specified  points  which  are  statistically 
represented  by  ERPDIST. 

Sequence  6  (SEA  6)  is  similar  to  SEA  3  except  that  it  excludes 
the  ERPRED  functions.  ERPRED  incorporates  the  functions  of  both  ERP  and 
ERPDIST. 
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SEA  3,  combined  with  SEA  5  or  SEA  6,  provides  for  an  analysis 
similar  to  SEA  1  and  SEA  4,  respectively;  however,  with  the  additional 
capability  of  selecting  particular  observations  for  the  error  analysis. 
SEA  3  performs  the  satellite  simulation,  producing  the  observatlona  In 
punched  card  form.  The  selection  of  these  observational  data,  fulfill¬ 
ing  required  experimental  conditions,  provides  Input  to  SEA  5  or  SEA  6. 

Sequence  7  (SEA  7)  Is  SGFDC  run  with  one  set  of  "real"  or 
contaminated  observation  Input.  The  orbital  elements  are  corrected  at 
epoch  and  output.  At  the  completion  of  the  correction,  the  sequence  Is 
terminated.  SEA  7  Is  mainly  reserved  for  correcting  actual  satellite 
orbits . 


Sequence  8  Is  an  ERFRED  run  only,  with  the  one  set  of  true 
elements  plus  N  sets  of  variant  elements  Input  (N  <  100) .  SEA  8  pro¬ 
vides  the  capability  of  repeatedly  performing  a  variety  of  prediction 
Snalyses  on  a  given  group  of  variant  element  sets  produced  by  any  of 
sequences  SEA  1,  4,  5  and  6. 


1.3  SIMULATION  CAPABILITIES  AND  LIMITATIONS 

The  computational  model  of  satellite  motion  Is  based  on  the 
theory  of  two-body  motion,  with  the  optional  provision  of  Including 
the  effects  of  the  secular  perturbations  on  the  orbital  elements  pro¬ 
duced  by  the  equatorial  bulge  of  the  earth  and  atmospheric  drag. 

The  control  of  the  simulation  of  the  sensor  observing  pattern 
Is  provided  through  a  specification  of  desired  limits  of  the  Initial 
acquisition  elevation  angle  and  the  final  acquisition  elevation  angle. 
Observations  from  any  of  the  sensors  in  the  simulated  network  are  speci¬ 
fied  as  any  combination  of  angles  (right  ascension  and  declination,  or 
azimuth  and  elevation  angle),  range,  and  range  rate.  The  simulation  of 
observations  may  be  constrained  to  generate  only  those  observations  with¬ 
in  a  range  envelope  or  those  observations  consistent  with  a  satellite 
illumination  criterion,  representative  of  the  sensor  capability.  The 
system  has  the  capacity  of  simulating  a  sensor  network  containing  up  to 
100  different  stations  and  the  capability  of  processing  up  to  2000 
observations  (500  time  points)  for  a  single  satellite  simulation. 

The  major  restrictions  of  the  programming  system  require  that: 

(1)  Satellite  orbital  eccentricity,  e  <  1. 

(2)  Satellite  orbital  Inclination,  1  f  0. 

(3)  Satellite  orbital  period  must  not  be  the 

period  of  earth  rotation. 
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SECTION  2 

SYSTEM  OPERATION 


The  modular  design  of  the  Simulation  Error  Analysis  System 
allows  the  user  the  freedom  of  calling  for  any  of  the  acceptable  sequences. 
The  program  units  and  the  associated  executive  routines,  subroutines,  and 
storage  assignments  are  compiled  in  relocatable  binary  format  and  are 
loaded  into  core  at  the  execution  of  one  of  the  sequences.  For  ease  of 
handling  and  for  a  saving  in  machine  time,  a  particular  sequence  may  be 
compiled  onto  the  user's  designated  sequence  tape.  This  disencumbers 
future  operation  of  the  particular  sequence,  eliminating  the  time  con¬ 
suming  tape  searching  on  the  SEA  tape  (Simulation  Error  Analysis  tape) 
which  is  necessary  in  compiling  a  sequence. 

Thus,  there  are  two  modes  of  operation:  one  of  compiling  the 
desired  sequence  which  may  be  combined  with  running  the  sequence,  and  one 
of  sequence  operation  using  a  previously  compiled  sequence.  The  latter 
operation  is  executed  by  submitting  a  standard  SYS  Job  setup  resulting 
in  the  complete  sequence  being  brought  into  core  by  ths  TAG  II  loader. 


2.1  SEQUENCE  C(»1PILATI0N  INSTRUCTIONS 

This  paragraph  describes  the  use  of  SYS  service  routines  to 
generate  a  sequence  as  one  program  to  be  retained  for  future  SEA  runs. 
All  SEA  programs  are  compiled  in  relocatable  binary  format  (REL)  using 
symbolic  references  for  Intraprogram  communication.  When  more  than  one 
REL  program  is  loaded  into  core  memory,  the  TAG  II  loader'*'  provides  the 
necessary  addresses . in  those  instructions  referencing  symbolic  locations 


'*'See  Phllco  writeup  on  TAG  II  and  TACIIx loader . 
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outside  of  the  original  compilation.  Therefore,  after  loading  the  multiple 
units  comprising  a  SEA  sequence,  core  will  appear  as  it  would  if  the  units 
had  been  compiled  as  one  program. 

The  actual  loading  of  a  sequence  is  accomplished  by  running  a 
standard  SYS  Job  setup  with  one  REL  load  card  for  each  program  comprising 
the  sequence.  The  last  program  to  be  loaded  must  be  EXEC.  This  REL  card 
has  the  additional  parameters  LIST  and  SUBS.  The  LIST  parameter  signals 
the  loader  to  prepare  an  edited  listing  on  the  output  tape  (5),  giving 
the  octal  core  address  assigned  to  each  symbolic  location  which  was  cross 
referenced  between  program  units.  This  cross  reference  aids  the  programmer 
in  eliminating  problems  that  arise  while  attempting  to  run  the  sequence. 

The  SUBS  parameter  signals  the  loader  to  bring  the  necessary  Philco  sub¬ 
routines  into  core  from  the  SYS  tape  (7).  These  subroutines  are  also  in 
REL  TAG  format.  Their  locations  are  made  available  to  the  sequence  pro¬ 
grams  by  symbolic  locations  in  the  same  manner  in  which  the  program  units 
communicate  with  each  other. 

After  all  units  have  been  loaded,  core  memory  will  contain  the 
complete  sequence  in  a  form  suitable  for  running.  The  SYS  segmentation 
aids  are  then  used  to  write  the  complete  sequence  on  the  Sequence  Tape 
in  RPL  (Running  Program  Language)  format.  In  general,  this  will  be  a 
separate  tape,  but  the  sequence  may  be  written  back  onto  the  SEA  tape  in 
order  to  conserve  tape  usage.  The  segmenting  routine  positions  the 
specified  tape  to  the  end  of  current  information,  writes  the  new  program, 
and  rewrites  the  "end  of  data"  indicator  (a  block  of  Z's). 

The  reason  for  loading  the  sequence  once,  and  writing  it  on 
tape  in  RPL  format.  Is  to  save  computer  time  when  running.  It  takes 
approximately  3  minutes  to  lead  Sequence  1  composed  of  10  REL  units.  This 
time  is  independent  of  tape  searching  time  which  will  be  variable  depend¬ 
ing  on  the  length  of  the  SSA  Tape.  After  the  sequence  in  on  the  SEA  tape 
in  RPL  format,  it  takes  less  than  10  seconds  to  load.  Therefore,  it  is 
to  the  user's  advantage  to  save  the  sequence  via  segmentation  aids. 

The  description  below  outlines  the  specific  procedure  for  com¬ 
piling  program  sequences. 

(1)  Tape  Unit  Designations 

Set  the  tape  units  with  the  following  fixed  assignments: 

Logical 

1.  SYS  Tape  -  no  write  Ring 

2.  Scratch  tape,  write  Ring 

*See  Philco  R  and  D  Note  Number  28 
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3. 

Must  have  a  tape  mounted, 
without  a  write  Ring 

with 

or 

4. 

Must  have  a  tape  mounted, 
without  a  write  Ring 

with 

or 

5. 

Output  tape,  write  Ring 

6. 

Must  have  a  tape  mounted, 
without  a  write  Ring 

with 

or 

7. 

Philco  Subroutine  tape,  no  write  Ring 

8. 

Input  tape,  no  write  Ring 

Variable  Tape 

The  SEA  tape  containing  the  REL  programs  will 
be  on  one  unit,  and  an  optional  output  tape, 
other  than  the  SEA  tape,  can  be  mounted, 

(rotes  c  and  d  below  explain  these  assignments). 

(2)  Job  Deck  Setup 

One  or  more  of  the  Job  decks  presented  In  Figure  2-1  through 
2-8  are  used  as  Input  to  SYS  by  transferring  the  card  data  to  magnetic  tape 
and  using  It  as  the  Input  tape  (logical  8). 

(3)  Restrictions  and  Variations 

The  Job  decks  shown  are  samples  and  must  adhere  to  the  fol¬ 
lowing  restrictions: 

(a)  Program  ID's  -  With  new  compilations 
of  the  program  units,  the  ID's  will  be 
changed,  l.e.,  AQTINT  may  be  changed  to 
AQTINTA,  Therefore,  It  Is  necessary  to 
see  that  the  current  ID  Is  given  on  the 
REL  card. 

(b)  Sequence  ID's  -  Because  of  changes  In 
the  program  units.  It  may  be  necessary 
to  recompile  a  sequence.  If  so,  the 
sequence  ID  must  be  changed.  For 
example.  If  Sequence  1  was  compiled 
with  the  ID  on  the  segment  card  given 
as  SEQI  and  a  program  unit  Is  changed, 
e.g.,  AQTINT  to  AQTINTA,  it  it  neces¬ 
sary  to  recompile  SEQI  calling  for 
AQTINTA  and  also  to  rename  the  new  compi¬ 
lation,  e.g,,  SRQIA.  At  cun  time  the 
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FIGURE  2-1.  SEQUENCE  1  COMPILATION 
JOB  DECK 
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FIGURE  2-2.  SEQUENCE  2  COMPILATION 
JOB  DECK 
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FIGURE  2-3  .  SEQUENCE  3  COMPILATION 
JOB  DECK 
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FIGURE  ?-4.  SEQUENCE  4  COMPILATION 
JOB  DECK 
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FIGURE  2-5.  SEQUENCE  5  COMPILATION 
JOB  DECK 
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FIGURE  2-6.  SEQUENCE  6  COMPILATION 
JOB  DECK 
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FIGURE  2-7.  SEQUENCE  7  COMPILATION 
JOB  DECK 
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FIGURE  2-8.  SEQUENCE  8  COMPILATION 
JOB  DECK 
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RPL  card  must  also  be  changed  to 
agree  with  the  new  sequence  ID. 

(This  ID  has  a  maximum  of  8  char¬ 
acters)  .  Care  must  be  taken  that 
no  program,  either  an  REL  unit  or 
a  segmented  sequence,  be  on  the 
same  tape  twice  with  the  same  ID. 

This  will  require  machine  time  to 
remedy  and  Is  very  costly,  both  in 
dollars  and  time  lost. 

(c)  SEA  Tape  Mounting  -  The  SEA  tape 
may  be  mounted  on  any  unit  but 
1,2, 5, 7, or  8,  and  may  or  may  not 
have  a  write  ring.  The  tape  number 
"n"  on  the  REL  cards  In  Input  must 
correspond  to  the  logical  tape  num¬ 
ber  on  which  the  SEA  tape  Is  mounted. 

(d)  Output  Tape  Mounting  -  The  output 
tape  for  the  RPL  version  of  the 
compiled  program  (Sequence  tape) 

may  be  on  any  tape  but  1,  2,  4,  5,  7, 
or  8.  The  tape  number  "m"  on  the 
SEQIENT  card  must  correspond  to  the 
logical  tape  number  on  which  the  out¬ 
put  tape  Is  mounted. 

It  Is  admissible  to  write  the  com¬ 
piled  sequence  onto  the  SEA  tape. 

In  this  case,  the  SEA  tape  must  have 
a  write  ring,  and  cannot  be  on  tape 
unit  4. 

(e)  Sentlnal  Block  -  The  "IBIT  0"  Instruc¬ 
tion  causes  the  segmenting  program 

to  search  the  tape  for  a  sentlnal 
block  of  Z's  before  writing  the  pro¬ 
gram.  Therefore,  if  an  "IBIT  0"  is 
used,  the  tape  specified  In  the 
SEGMENT  Instruction  must  have  a  block 
of  Z's  after  all  good  information. 

If  the  "IBIT  0"  Is  not  used,  the  seg¬ 
menting  program  will  assume  that  the 
tape  specified  Is  properly  positioned 
and  begin  writing  the  RPL  program  with¬ 
out  prepositioning  the  tape.  This  is 
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an  extremely  dangerous  practice, 
since  an  error  will  destroy  the 
tape  data.  If  the  tape  on  which 
the  sequence (s)  will  be  compiled 
Is  a  scratch  tape  It  Is  not  the 
SEA  tape  and  l.e.,  no  programs  or 
sequences  have  been  written  on  It, 

It  Is  necessary  to  precede  the  first 
sequence  compilation  job  deck  with 
the  following  Job  deck: 


JOB 

REWIND. 

WRTSENT 


WRITE  SENTINEL 

m 

m,  Z.ZZZZZZZ 


m  ~  logical  tape  no. 
of  output  tape. 


REWIND  m 


If  only  one  sequence  Is  to  be  com¬ 
piled  on  a  scratch  tape,  one  has  the 
option  of  replacing  the  "IBIT  0"  card 
with  a  "REWIND  m".  This  will  cause 
the  sequence  to  be  written  on  the  be¬ 
ginning  of  the  tape  followed  by  a 
sentinel  block;  the  tape  wlll.be  posi¬ 
tioned  at  the  beginning  of  the  sentinel 
block. 


2.2  SEQUENCE  OPERATION 

SEA  sequence  runs  are  executed  under  SYS  control.  This  means 
that  standard  SYS  tape  and  Input  deck  setups  are  used.  Tapes  required  for 
a  sequence  run  are: 


Logical 

1. 

SYS  Tape 

2. 

Scratch  Tape 

3. 

Scratch  Tape 

4. 

Sequence  Tape 
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5.  Output  Tape 

6 .  Scratch  Tape 

7.  Not  required 

8.  Input  Tape 
9-15.  Not  required 

Sequence  output  Is  on  Tape  5.  Printer  or  hard  copy  output  Is 
In  data  select  0.  Punched  card  output  Is  In  data  select  2  and  should  be 
punched  In  code  mode  with  the  "sense  control  characters"  switch  set  to 
Ignore  (Punched  Card  Controller  Switches) . 

Sequence  Input  Is  on  Tape  8.  One  job  consists  of  one  or  more 
cases  on  the  same  SEA  sequence,  l.e.,  one  Job  may  contain  several  cases 
on  SEAl  only.  Jobs  always  begin  with  a  JOB  card,  JOB  In  Col  17-24,  and 
contain  an  RPL  card,  RPL  In  Col  17-24,  calling  the  sequence  desired. 

Dump  cards,  DUMP  In  Col  17-24,  are  optional  and  may  precede  or  follow 
the  RPL  card.  All  cards  after  these  are  SEA  cards  and  actual  Input  data. 

One  case  In  a  SEA  deck  Is  always  preceded  by  a  case  card,  SEA 
In  Col  17-24,  and  followed  by  an  ENDDATA  card,  ENDDATA  In  Col.  17-24.  The 
last  case  In  a  job  should  be  followed  by  an  SYS  card,  SYS  in  Col  17-24. 

In  between  the  case  card  and  the  ENDDATA  card  is  the  Input  data  consisting 
of  all  program  control  and  data  cards  necessary  to  run  the  case.  The  Job 
Deck  setup  required  to  run  sequences  1  to  8  Is  included  in  Figures  2-9 
through  2-16.  Any  one  case  will  be  subject  to  the  following  restrictions: 

(1)  One  element  set  consisting  of  two  element  cards 
Is  the  maximum  allowed.  This  can  be  type  A,  B, 

C,  or  D.  Type  C  and  D  elements  must  be  preceded 
by  the  associated  sensor  card. 

(2)  For  element  Input  type  A  or  B,  100  sensor  cards 
are  allowed.  For  element  types  C  and  D,  one 
sensor  card  Is  allowed,  the  sensor  associated 
with  the  elements. 

(3)  One  hundred  simulation  parameter  cards  are  allowed. 

There  must  be  a  sensor  and  a  standard  deviation 
card  for  each  different  sensor  specified  on  the 
simulation  parameter  cards. 

(4)  One  hundred  standard  deviation  cards  are  allowed. 
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FIGURE  2-9.  SEQUENCE  1  RUN 
JOB  DECK 
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FIGURE  2-10.  SEQUENCE  2  RUN 
JOB  DECK 
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FIGURE  2-11.  SEQUENCE  3  RUN 
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FIGURE  2-12.  SEQUENCE  4  RUN 
JOB  DECK 
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FIGURE  2-13.  SEQUENCE  5  RUN 
JOB  DECK 
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FIGURE  2-14.  SEQUENCE  6  RUN 
JOB  DECK 
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FIGURE  2-15.  SEQUENCE  7  RUN 
JOB  DECK 
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(5)  Observations  can  be  standard  SPADATS  format, 

0-9  or  A  in  Col  80,  or  SEA  format,  0  In  Col  80. 

If  the  elements  are  type  A  or  B,  either  type  may 
be  used.  If  SPADATS  format  Is  used,  the  elements 
must  precede  the  observations.  If  elements  are 
types  C  or  D,  only  SEA  format  observations  are 
allowed.  In  any  case,  500  observations  Is  the 
maximum  allowed. 

(6)  A  maximum  of  500  variant  element  sets  Is  allowed. 
These  must  be  type  A  or  B,  and  must  be  preceded 
by  the  element,  nominal  elements.  Input. 

(7)  One  control  card  of  each  specified  type  should 
be  Included. 
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SECTION  3 

PROGRAM  UNITS 


The  seven  major  program  units  comprising  the  Simulation  Error 
Analysis  System  are; 


Acquisition  Time  Intervals 

AQTINT 

Observation  Simulation 

OBSIM 

Monte  Carlo 

MOCARO 

Differential  Correction 

SGPDC 

Element  Distribution 

DCDIST 

Error  Prediction 

ERPRED 

Prediction  Distribution 

ERPDIST 

This  section  presents  a  detailed  description  of  each  program  unit  In  terms 
of  general  function,  Input-output  data  requirements,  computational  and 
logi'c  processes.  Also,  each  program  unit  Is  summarized  according  to  system 
data  blocks,  associated  Input  cards,  and  common  subroutines  used.  Reference 
should  be  made  to  Sections  5,  6,  and  7  for  detailed  formats  of  the  respec¬ 
tive  blocks,  cards,  and  common  subroutines. 

In  addition  to  the  program  formulation  subsections,  a  schematic 
representation  of  each  program  unit  is  also  exhibited.  These  flow  diagrams 
serve  to  augment  the  description  of  the  computation  and  logic  processes 
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for  each  program  unit.  The  following  definitions  of  the  symbol  logic  will 
aid  in  following  these  flow  diagrams; 


Operation  symbol  with  operation  described 
within  the  box. 


- ' 

DESCRIPTION 


Outside  entrance  or  exit  with  symbolic 
location  "NAME". 


Connector,  flow  chart  reference  =  n. 


Test  or  branch  -  If  condition  exists,  exit 
to  the  "yes"  path;  if  condition  does  not 
exist,  exit  to  the  "no"  path.  (May  be  com¬ 
parison  with  =  vs  <  vs  >,  etc). 


Common  subroutine,  "NAME"  writeup  appearing 
in  Section  5 . 


Program  subroutine,  either  on  flow  chart  or 
in  program  writeup. 


Internal  program  Switch  "A"  or  other  designa¬ 
tion  ("B",  "C",  etc.)  path  will  vary  depending 
on  preset  value  assigned  to  the  switch. 


NAME  Written  adjacent  to  any  of  the  symbols  above, 

this  is  the  symbolic  location  in  the  coding 
associated  with  that  function. 


The  individual  program  units  are  preceded  in  this  section  by  a 
description  of  the  Initializing  process.  This  is  not  a  program  unit  per  se, 
but  is  required  prior  to  entering  any  of  the  system  sequences.  The  control 
of  this  initializing  process  lies  within  the  executive  function  of  the 
sequences.  Initialization  is  executed  immediately  after  SYS  transfers 
control  to  the  sequences. 
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3 . 1  INITIALIZATION 

The  computations  required  before  entering  any  of  the  program 
sequences  Include  the  conversion  of  the  four  Input  element  types  (A,B,C,D) 
to  a  common  type,  computation  of  Greenwich  sidereal  time  at  epoch,  - 
retrieval  of  year  constants  for  the  sun,  and  transformation  of  sensor 
coordinates  to  a  rectangular  form.  The  system  actually  contains  these 
computations  In  the  executive  subroutines  EUIRED  and  SENCARD  and  not  In 
a  separate  Initialization  unit.  The  outputs  generated  by  these  routines 
are  germane  to  the  program  units  and  therefore  are  presented  In  this 
Initialization  section. 


3.1.1  INPUT-OUTPUT  DATA 

The  Input  data  required  by  the  Initializing  subroutines  Include: 

(1)  Element  cards  (four  types  accepted) 

Type  A  (a,  e,  1,  Q,  a>,  M^) 

Type  B  (x,  y,  z,  x,  y,  z) 

Type  C  (Hq,  e,  1,  h^,  v^  ,  I®) 

Type  D  (a,  e,  1,  n,  oj,  h^) 

(2)  Sensor  cards 

The  output  data  produced  by  the  EUIRED  subroutine  consist  of: 

(1)  EBLOC  -  system  data  block  containing  Input  elements 
In  M  N  form,  time  of  epoch,  Greenwich  sidereal  time 
at  epoch,  and  satellite  Identification. 

(2)  Mean  longitude  of  the  sun  at  the  beginning  of  the 
epoch  year  (types  A  and  B  only) . 

(3)  Corrective  constant  used  In  computing  the  true 
longitude  of  the  sun  (types  A  and  B  only) . 

The  output  from  the  SENCARD  subroutine  produces  SBLOC,  a  system 
data  block  containing  sensor  coordinates  In  rectangular  form. 
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3.1.2  FORMULATION 

Element  types  A  and  B  require  the  computation  of  the  Greenwich 
sidereal  time  at  epoch,  6^  ,  by  means  of 

o 

®t  "  ®o  0-9856472  (Integer)  +  360.9856472  (FRAG),  (3.1.1) 
o 


where  Integer  Is  the  day  number  since  the  beginning  of  the  year  and  FRAG 
Is  the  fractional  part  of  the  day.  6^  Is  the  Greenwich  sidereal  time  at 
the  beginning  of  the  year,  obtained  from  a  table  look-up  procedure, 

STLG  subroutine.  This  subroutine  also  provides  L^,  the  mean  longitude 
of  the  sun  at  the  beginning  of  the  year ,  and  G^ ,  a  corrective  constant 
for  the  same  year . 

Element  type  G  Is  arbitrary  with  respect  to  epoch,  and  therefore 
the  conversion  of  this  type  Is  made  with  the  simplifying  assumption  that 
tg  =  0  and  =  0.  Types  C  and  D  depend  on  station  location  and  require 
the  coordinates  of  the  station  to  be  available  before  conversion. 


The  transformation  of  the  geodetic  station  coordinates  to  rec¬ 
tangular  coordinates  Is  accomplished  by  the  relationships. 


X  =  (G  +  H)  cos  ♦  (3.1.2) 

c 

y^  =  (S  +  H)  sin  ♦ 

where 

y^  =  sensor  position  above  equatorial  plane. 

X  =  projection  on  the  equatorial  plane  of  the 
distance  from  geocenter  to  sensor. 


The  quantities  G  and  S  are  conversion  factors  based  on  the  International 
Ellipsoid  with  flattening,  f  =  1/298. 3, and  equatorial  radius  a  =  1 
(6378.15  km),  ® 


S  =  (1  -  tr  G. 


(3.1.3) 

(3.1.4) 
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and 


'  H  =  altitude  above  the  reference  ellipsoid 

(approximately  sea  level) . 

(p  =  geodetic  latitude. 

The  output  data  block,  SBLOC,  contains  the  quantities,  east  longitude, 
Xg)  ■  Jfj.)  ■  *nd  H. 

The  element  conversion  subroutines  compute  the  M  N  elements 


(a._,a._,h  ,h  ,h  ,L) 
xN  yN  ’  X  ’  y  ’  e  o 
o  ■'  o  o  'o  o 


from  any  of  the  four  Input  types.  A,  B,  C  or  D. 


The  conversion  for  classical  elements  (ETYPA)  Is  straight¬ 
forward,  First,  the  semllatus,  p.  Is  found  from  the  semimajor  axis,  a, 
and  the  eccentricity,  e,  by 


/I  2. 

p  =•  a(l  -  e  ) . 

(3.1.5) 

The  components  of  the  angular  momentum  vector,  h,  follow 
ascension  of  the  ascending  node,  $1,  and  the  Inclination, 

,  using  the  right 
1. 

h  =  ^/p  sin  Q  Bin  1, 

0 

(3.1.6) 

h  =  -»/p  cos  Q  sin  1, 

y 

'o 

(3.1.7) 

h  =  -Jp  cos  1. 
z 

0 

(3.1.8) 

The  nodal  components  of  the  a  vector,  which  depend  on  e 
of  perigee,  oo,  are  computed  from 

and  the  argument 

a  „  =  e  cos  0), 

xN 

0 

(3.1.9) 

a  „  =  e  sin  u). 

(3.1.10) 
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Finally,  the  mean  longitude  at  epoch  la  computed  using  cu,  Cl,  and  the  mean 
longitude  at  epoch,  M^,  from 


+  for  h  >  0 

L=M±0+cu,  ® 

°  °  -  for  h  <0. 

z 

(3.1.11) 

The  conversion  for  the  position  and  velocity  elements  (ETYPB) 
requires  a  more  complex  set  of  formulae,  which  are  necessary  to  avoid  the 
singularities  associated  with  low  eccentricity.  The  components  of  angular 
momentum  are  obtained  directly  from  the  position  vector  r  and  the  velocity 
vector  r  In  the  vector  product 

r  X  f 
h  =  - ^ 

(3.1.12) 

where  the  vector  product  Is  computed  using  the  Input  components 
and  r(x,  y,  z) .  The  computation  of  p  follows. 

£(x.  y,  *) 

p  =  h  •  h. 

(3.1.13) 

The  orthogonal  set  of  unit  vectors  Is  then  computed 

U  =  £/r. 

(3.1.14) 

W  =  hATp 

(3.1.15) 

V  =  W  X  U, 

(3.1.16) 

where  U  Is  the  unit  vector  along  r,  W  Is  the  unit  vector  normal  to  the 
orbit  plane  In  the  direction  of  the  angular  momentum  vector,  and  V  com¬ 
pletes  the  right-handed  set.  The  eccentricity  Is  obtained  from 

2  2  2 
e  =  (e  cos  v)  +  (e  sin  v)  , 

(3.1.17) 

where 

e  sin  V  =  "(/p/n  f 

(3.1.18) 

and 

e  cos  V  =  p/r  -  1 . 

(3.1.19) 
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Equations  (3.1.12)  and  (3.1.18)  utilize  the  mass  function,  which  Is 
taken  as  unity  In  satellite  applications.  The  radial  component  of  the 
velocity  vector,  f.  In  Equation  (3.1.18)  Is  computed  from 


r  •  r 


(3.1.20) 


The  semlmajor  axis,  a,  and  subsequently  the  mean  motion,  n,  are  then 
available  through  Equation  (3.1.5)  and 


n  =  k  /n  a‘^^^ 


(3.1'.21) 


where  k  is  the  geocentric  gravitational  constant .  True  longitude  at 
epoch,  I  ,  Is  computed  from 


1  =  tan 

o 


,ru  -  V  1 
■1  Li _ X 

U  +  V 
U  X  y  J 


(3.1.22) 


The  nodal  components  of  a  follow,  using 
a  =  y  e  cos  V  -  y  e  sin  v 
which  leads  to 


-1/2 


a  „  =  (-a  W  +  a  W  )(1  -  W  ) 
xN  X  y  y  X  z 


-1/2 


(3.1.23) 


(3.1.24) 


1/2 


a  „  =  (-a  W  W  -  a  W  W  )(1  -  W  )  +  a  (1  -  W  ) 

yN^  X  X  z  y  y  z  z  z  z 


The  difference  between  the  true  anomaly,  v,  and  the  eccentric  anomaly,  E, 
Is  computed  from 


V  -  E  =  tan 


1  fain  (v  -  E)1 

Uos  (v  -  E)J  ’ 


(3.1.25) 


where 


sin  (v  -  E)  =  - 
P 


ie.,cos  v)(e  sin  v)  ^  ^ 


1  +  (1  -  e) 


1/2 


(3.1.26) 


3-7 


SIMULATION  ERROR  ANALYSIS  SYSTEM 


PROGRAM  DOCUMENT 


and 


cos  (v  -  E) 


(e  sin  v) 

1  +  (1  -  e) 


1/2 


+  e  cos 


(3.1.27) 


Combining 


e  sin  E  =  — «/l  -  e  sin  v  (3.1.28) 

P 

with  the  results  of  Equations  (3.1.22)  and  (3.1.25),  the  mean  longitude  at 
epoch  Is  obtained  from 


L  =1  -  (v  -  E)  -  e  sin  E.  (3.1.29) 

o  o 

The  ETYPC  conversion  routine  treats  the  elements  defined  by  a 
partial  set  of  elements  and  a  description  of  the  pass  over  the  sensor . 

This  partial  set  of  elements  Includes  the  altitude  of  perigee  above  the 
reference  ellipsoid,  H  ,  the  elevation  angle  of  the  satellite  as  It 
crosses  the  meridian  of  the  sensor,  h^,  the  true  anomaly  of  the  satellite 
as  It  crosses  the  meridian  of  the  sensor,  v^.,  e,  and  1.  The  elevation 
angle  at  culmination  Is  specified  either  north  or  south  of  the  sensor's 
zenith.  The  pass  over  the  station  Is  specified  either  north-to-south  or 
south-to-north.  Even  though  these  north/south  descriptions  become  in¬ 
congruous  when  the  satellite  Is  at  the  apex  or  zenith  positions,  no  ambig¬ 
uity  exists  In  the  mathematics. 


The  magnitude  of  the  radius  vector  from  the  geocenter  to  the 
satellite  at  culmination  Is  obtained  by 


r  =  +  e) 

c  1  +  e  cos  v 

c 


where  the  perigee  distance 
q  =  1  + 


(3.1.30) 


(3.1.31) 


The  geocentric  latitude  of  the  subsatellite  point  ♦  (Figure  3-1)  is 
computed  from  ® 


0  =  ^  ±  f  , 
s  c’ 


+  north  of  zenith 
-  south  of  zenith 


(3.1.32) 


where  f  Is  the  complement  of  the  sum  of  the  angles  (h  +  p  )(see 
Figure  3-2)  and 
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S  =  sin 
c 


‘l^] 


(3.1.33) 


The  angle  and  shown  In  Figure  3-1  are  computed  by  means  of 


u  =  sin 
c 


-1 


sin  <1  T 

-nrrj 


and 


k  =  sin 
c 


-1 


tan  ♦ 
_ 8 

tan  1 


(3.1.34) 


(3.1.35) 


The  quadrants  of  u^  and  k^  are  determined  by  the  direction  of  the  pass 
over  the  sensor  and  the  signs  of  the  bracketed  quantities.  The  angles  Cl 
and  cu  are  obtained  from 


fl  =  -  k  If  1  <  j(/2 

E  C  ~ 


=  X-,  +  k  If  1  >  «/2 
c 


(3.1.36) 


and 


O)  =  u  -  V  . 
c  c 


(3.1.37) 


The  eccentric  anomaly  at  culmination  Is  obtained  from 
’sin  E  n 


E  =  tan 
c 


-1 


cos  E 


(3.1.38) 


where 


Jl  ^ 


e  sin  V 


sin  E 


1  +  e  cos  V 


(3.1.39) 


and 


cos  E 


cos  V  +  e 
_ c _ 

c  1  +  e  cos  V 

c 


(3.1.40) 
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The  orbit  epoch  Is  defined  at  the  satellite  culmination  over  the  sensor, 
meridian  and 


(3.1.41) 


M  =  E  -  e  sin  E  (3.1.42) 

o  c  c 

The  computation  then  continues,  as  given  by  ETYPA,  to  obtain  the  desired 
M  N  form. 


The  fourth  option  on  the  element  Input  Is  converted  by  ETYPD. 
This  Input  type  defines  the  elements  at  a  particular  range,  pg,  and  eleva¬ 
tion  angle,  h  ,  from  a  specified  sensor.  Along  with  these  quantities, 
the  orbital  elements  a,  e,  1,  0,  and  a>  are  also  required  as  Input. 
Initially,  the  program  tests  pg  to  ensure  Its  validity  with  respect  to  the 
orbit  elements.  This  test  Is 


“min 


^  ^  ^  Pmax> 


(3.1.43) 


where 


and 


(3.1.44) 

(3.1.45) 


Perigee  distance,  q,  and  apogee  distance,  q_.  In  the  above  equations  are 
obtained  from 


q  =  a(l  -  e)  (3.1.46) 

and 

q2  =  a(l  +  e)  .  (3.1.47) 


If  Po  I®  valid,  the  routine  goes  on  to  compute  the  geocentric  distance  to 
the  satellite,  rg. 


r 

o 


+  2R 


sin  h 

o 


(3.1.48) 
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and  the  true  anomaly 


V  =  cos 
o 


R]  ■ 


(3.1.49) 


where  p  is  computed  from  Equation  (3.1.5),  and  Is  double  valued. 

The  components  of  the  unit  vectors  P  and  ^  In  the  direction  of 
motion  In  the  orbit  plane  are  computed  from 

P  =  cos  0)  cos  fl  -  sin  CO  sin  cos  1 

X 


P  =  cos  CO  sin  Q  +  sin  co  cos  Q  cos  1 

y 

P  =  sin  CO  sin  1 
z 


(3.1.50) 


and 


Q  -  -  sin  CD  cos  n  -  cos  cd  sin  Q  cos  1 

X 

Qy  =  -  sin  00  sin  Q  +  cos  cd  cos  Q  cos  1 
Q  =  cos  CO  sin  1 . 


(3.1.51) 


The  components  of  two  U  vectors  are  now  obtained  from  the  two  solutions 


to  V  by 
o 


cos  V  P  +  sin  V  2>  (i  =  1>2). 


(3.1.52) 


Auxiliary  angles  X',  which  are  the  local  sidereal  times  of  the  station  for 
the  solutions  of  the  U  vectors,  are  established  by 


'"1  "  ^  tan'^^,  (1  =  1,2) 


(3.1.53) 


where 


I  2 

vl  -  U  cos  ♦  +  U  sin  ♦  -  cos  e 
*1  *1 

\  =  7=== - - -  .  (i  =  1.2) 

vl  -  cos  ♦  -  U  sin  ♦  +  cos  e 
*1  ^ 


(3.1.54) 
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cos  e 


R _ 

r  -  p  sin  h 
0  ^0  0 


(3.1.55) 


0£  the  two  pairs  of  possible  solutions,  one  pair  Is  arbitrarily  selected 
and  the  x/  In  which  the  satellite  Is  entering  the  field  of  the  sensor  Is 
chosen  as  epoch  rather  than  the  one  In  which  It  Is  exiting  the  field. 


The  Greenwich  sidereal  time  at  epoch  for  either  of  the  solutions 
Is  obtained  from 


e 


t  “ 
o 


(3.1.56) 


The  eccentric  anomaly,  Eg,  at  satellite  epoch,  ,  Is  computed 
by  Equations  (3.1.38),  (3.1.39),  and  (3.1.40)  (with  subscripts  c  replaced 
by  o) .  The  mean  anomaly  M^  Is  then  obtained  by 


M 


e  sin  E 


(3.1.57) 


3.1.3  SCHEMATIC  COIPUTATIONAL  SEQUENCE 

As  previously  mentioned,  the  programs  used  In  the  Initializing 
process  are  executive  subroutines.  The  major  routines  EUIRED  and  SENCARD 
and  their  associated  routines  are  described  fully  In  Section  5.  The  flow 
diagram  of  ELMRED  Is  shown  here  (Figure  3>3)  for  continuity,  since  It 
performs  the  major  Initializing  function  and  Indicates  the  role  of  SENCARD 
and  the  associated  routines. 
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3.2  ACQUISITION  TIME  INTERVALS  -  AQTINT 

The  time  o£  satellite  acquisition  for  observation  from  a  given 
station  and  sensor  Is  governed  by  two  main  considerations.  The  first 
consideration  Is  the  orbit-plane  orientation  requirement  for  sensor 
visibility,  and,  secondly.  It  Is  desirable  to  specify  the  acquisition 
times  In  such  a  manner  as  to  provide  flexibility  in  the  sensor's  observing 
schedule.  During  the  first  and  following  passes  of  the  satellite, 
consistent  with  an  observation  duration  of  selected  dates,  a  specification 
of  the  Initial  and  final  acquisition  times  which  corresponds  to  convenient 
sensor  Initial  and  final  elevation  dngles  will  provide  a  wide  range  of 
observation  times.  The  subdivision  of  the  Interval  between  the  Initial 
and  final  times  Into  observation  segments  yields  several  initial  and  final 
observation  times  available  for  selection  according  to  a  desired  obser¬ 
vation  schedule. 


3.2.1  AQTINT  INPUT -OUTPUT  DATA 

In  the  formulation  of  acquisition  times  In  accordance  with  the 
above  considerations,  it  is  assumed  the  following  quantities  are  available 
as  input  data: 

(1)  EBLOC,  the  M  N  satellite  orbit  elements  and 
sidereal  time  at  satellite  epoch. 

(2)  SBLOC,  sensor  Identification  and  sensor  station 
coordinates. 

(3)  IBLOC,  the  Initial  and  final  elevation  angles 
convenient  for  the  sensor,  total  number  of 
observation  segments  per  satellite  pass,  the 
segments  chosen  for  observations,  and  observation 
time  frequency. 

(4)  Time  duration  of  observation. 

The  output  from  the  program  is  a  block  of  data,  TBLOC,  consisting 
of  the  times  of  acquisition  from  each  sensor.  The  Individual  times  depend 
on  the  simulation  parameters.  Item  (3),  and  the  number  of  acquisition  times 
depends  on  the  observation  duration;  however,  the  total  number  of  times 
Is  limited  to  approximately  600.  An  optional  feature  of  the  program 
enables  this  block  of  acquisition  times  to  be  printed  along  with  each 
corresponding  sensor  Identification. 
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3.2.2  AQTINT  FORMUUTION 

The  task  of  finding  the  observation  times  for  a  given  satellite 
orbit  and  station  is  first  concerned  with  the  problem  of  determining  the 
conditions  necessary  for  the  satellite  to  be  above  the  observer's  horizon. 

The  examination  of  the  geometric  relationships  between  the  orbit  or  orien¬ 
tation  and  position  of  the  observer's  station  yield  the  following  conditions: 

(1)  If  T)  >  1  (3.2.1) 

and  ^1  >  ^ 

a  portion  of  the  satellite  orbit  track  will  always  be 
above  the  observer's  horizon. 

(2)  If  Tij  >  1  (3.2.2) 

and  <  V 

the  satellite  will  never  be  visible  from  the  station. 

(3)  If  1)  1  or  T)  <  1  (3.2.3) 

a  portion  of  the  satellite  orbit  path  will  be  above 
the  observer's  horizon  only  when 

>  V  (3.2.4) 


The  quantities  in  Equations  (3.2.1)  through  (3.2.4) 
are  defined  by  the  expressions: 

I  2 

2  ,  2  ^  2 
,  1  a  +  a 

'■  xn  vn 


a(l  +  e) 


1  - 


(h  X  +  h  Y  +  h  Z) 
^  X  V  z 

2  2  2 
(X^  +  +  Z^)  p 


(3.2.5) 

(3.2.6) 


TT 


1  -  V 


cos 


0  ^Jl  -  (h^)^/^ 


(3.2.7) 
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T) 


Tt  ^  '  ^2 


cos  <t>  ~\ 

\ 

f  z  P 

V 


2 


2 


(3.2.8) 


(3.2.9) 


X  ■  -X  co8$  (3.2.10) 

c 

Y  -  -X  sin® 
c 

Z  -  -y^ 

The  local  sidereal  time, 6  ,  is  obtained  from 
e  m  +  \.  +  (0.0043752691)  t,  (3.2.11) 

w  Hi 

0 

where  9  Is  the  sidereal  time  at  epoch  from  EB1X)C,  X  _ 
t  c 

o 

Is  the  east  longitude  of  the  sensor,  and  t  Is  time  In 
minutes  relative  to  satellite  epoch.  If  the  condition 
specified  by  Equation  (3.2.3)  prevails,  then  an  Iterative 
procedure  must  be  carried  out,  advancing  time,  t,  until 
the  condition  specified  by  Equation  (3.2.4)  Is  fulfilled. 

The  existence  of  the  condition  specified  by  Equation  (3.2.4) 
Is  guaranteed  by  the  existence  of  condition  (3). 

The  satellite  will  be  above  the  horizon  upon  satisfaction  of 
the  Inequalities  (3.2.1)  or  (3.2.4)  and  when 

L  >  0,  (3.2.12) 

h 

where 
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and 

p  -  Pj^  +  pj  (3.2.14) 

/X  y 

The  components  of  p  are  obtained  from 

p^  -  X  +  x  (3.2.15) 

Py  -  Y  +  y 

P  ■■  Z  +  2 

where  x,  y,  and  2  are  obtained  from  the  MNREP  subroutine.  An  Iterative 
procedure  must  be  performed  In  the  time  variable,  t,  until  the  condition 
specified  by  Equation  (3.2.12)  Is  fulfilled. 

The  time,  t,  corresponding  to  a  given  satellite  elevation, 
hj^Q,  Is  determined  by  the  convergence  of  the  following  Iterative  process. 

A  linear  approximation  to  the  time  Interval  from  the  current  time  point, 
obtained  through  condition  (3.2.12),  to  that  for  hj^^^  Is 


k.  (  P  •  ^  +  P  ®  ^,) 


(3.2.16) 


giving  the  next  representation  point  by  means  of 


‘next 


t  +  At 


(3.2.17) 


3-iy 


\ 


Th*  aquatorial  ayttm  consonants  of  ^  In  Iquntlon  (3.2.16)  nro  obtntiMd 
fro«  tho  horiion  cystM  eonponoatc  by  thn  rotation 

D  -  D  8  4-D  B4D  Z 

*  *h  *  *  ‘h  * 


<v  i  ^  ^  A# 

D^D  -  0  8  -fS  l-fD  Z 

-  ,  y  \  7  y  *h  y 


(3.2.11) 


whara 


D  -  D  8  +  i  Z-fD  Z 

*  *h  •  *  *h  “  * 


■  aln  h  eoa  A 


aln  h  aln  A 


(3.2.19) 


I  “h 


coa  h 


8^  ■  aln  0  cos  6 


4  /  8y  ■  aln  0  aln  0 


8^  •  cos  0 


(3.2.20) 


■  -  aln  9 


J[  (j  ly  ■  coa  9 


(3.2.21) 
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and 


z  S 


Z  ■■  C08  0  C08  3 
X 


Z  -  cos  0  sin  Q 

y 


(3.2.22) 


(^Z^  ■  sin  0 


The  components  of  the  vector  /i  are  obtained  from 
p  -  -Y  0  +  X 


p  ■  X  0  +  y 


(3.2.23) 


where  x,  y,  and  e  are  available  from  MNREP,  and  0  is  the  rotation  rate 
of  the  earth.  The  azimuth,  A,  and  the  elevation  angle,  h,  in  Equation 
(3.2.19)  are  computed  from  the  components  of  the  L  vector.  These 
expressions  are 


h  ■  tan 


and 


,  0  <  h  <  90® 


(3.2.24) 


A  ~  tan 


,  0  <  A  <  360® 


(3.2.25) 
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where 


cos  0 


(3.2.26) 


cos  Q 


p  sin  Q  ) 

X 


(3.2.27) 


and  L^  Is  obtained  from  Equation  (3.2.13). 


Finally,  the  initial  and  final  observation  times  corresponding 
to  the  i**^  observation  segment  are  obtained  from  the  expressions 


(3.2.28) 


(3.2.29) 


where 

T  •  time  in  minutes  relative  to  satellite  epoch  corresponding 
to  the  Initial  elevation  angle,  h^. 

Tp  «  time  in  minutes  relative  to  satellite  epoch  corresponding 
to  the  final  elevation  angle,  h^. 

n  ~  number  of  consecutive  segments  minus  1. 

NUSEG  >•  total  number  of  observation  segments  in  one  satellite 
pass. 

SEGNOS  ~  number,  identifying  the  1^^  selection  observation 
segment . 

The  latter  two  quantities  are  Inputs,  where  NUSEG  may  be  any  number  of 
segments  up  to  a  maximum  of  nine.  SEGNOS  is  derived  from  input  specifying 
any  combination  of  the  segments  defined  by  NUSEG  as  is  the  integer,  n. 


and 


Ti  + 


(SEGNOS  -  i.) 
NUSEG 


(T„  - 

F 


Tf) 


TfH- 


(SEGNOS)  +  n 
NUSEG 


(Tp  -  Tj) 
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3.2.3  AQTINT  PROGRAM  SPECIFICATIONS  SUMMARY 

a.  System  Input 

SBLOC  OBSDUR 

IBLOC  PERT 

TOPT 

b.  Associated  Input  Cards 


E  CARD 

AQTINT  CONTROL 

S  CARD 

I  CARD 

System  Outsut 

TBLOC 

System  Common  Subroutines 

ARCTAN 

MNREP 

SFXINT 

EUNPCK 

NXJOB 

SFXFLT 

EXEND 

PAGE  CON 

CARDER 

GLOP 

SENGET 

IGET 

SEPSUB 

PANT 

ARC5IN 

ARGOS 

SETJC 

INITI 

HEAD 

Phllco  Subroutines 

FSIN 

FSQRT 

FASIN 

FOOS 

FACOS 
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3.2.4  AQTINT  SCHEMATIC  COMPUTATIONAL  SEQUENCE 

The  following  glossary  provides  the  definitions  of  abbreviations 
used  In  the  AQTINT  flow  diagrams.  These  diagrams  Include  an  overall 
description  of  the  program  logic  (Figure  3>4)  followed  by  a  detailed 
description  of  the  program  logic  (Figures  3-5,  3-6,  3-7). 


Location 

IDELTAT 


Time  frequency  of  observation 


ROMAX 


sensor  maximum  range  of  observation 


CAPTR 


time  of  satellite  rising 


CAPTS 


OBSDUR 


T-  time  of  satellite  setting 
Observation  duration 


h^  *  given  satellite  angle  at  beginning  of 
acquisition  Interval 

hp  given  satellite  elevation  angle  at 
ending  of  acquisition  Interval 

Indicates  rising  or  setting  beginning  elevation 

Indicates  rising  or  setting  ending  elevation 


DTDENOM 


Denominator  of  At  (Equation  3.2.16) 


DELTAT 


At  (Equation  3.2.16) 


DELTE 


V  (Equation  3.2.3) 

V  2  (Equation  3.2.9) 
rj  (Equation  3.2.8) 

T)  j  (Equation  3.2.7) 

Time  step  (min.) 

Time  step  (min.) 

Current  time  since  satellite  epoch 
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LQcatlon 

LOOPO 

LOOP 

LOOP^ 


LOOPj  J 


TT 

DIRS 

KS 

TTEST 

TTEST  0 

AQTHET 

AQCAPR 

AQNU^ 

AQRHO 

AQELEV 

AQDELT 

ZAGOUT 

AQOUT 


) 


Quantity 


Counters 


Special  T 

Contains  DIRI  or  DIRP 
Contains  HI  or  HP 

Special  T 

Computes  aln  &  ,  cos  &  (Equation  3.2.11) 
Conq;>utes  R  (Equation  3.2.10) 

Computes  (Equation  3.2.6) 

Computes  p  (Equation  3.2.14) 

Computes  h  (Equation  3.2.24) 

Computes  At  (Equation  3.2.16) 

Outputs  simulation  parameter  summary 
Outputs  T  Bloc  If  specified 


ENTER  AQTINT 


EXIT  AQTINT 


FIGURE  3-4.  AQTINT  MACRO  FLOW 
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FIGURE  3-S.  AqfllNT 
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AQDU 


LOOPO  +  1 
-►LOOPO 


DEUCE  -  1 
T-4  -►T 


MNREP 


1/2 

(T-HTTESTO) 

“♦T 


1/2(TTEST 

TTESTO) 

T 


AQFl 
TT  -♦•CAPTR 
(RISING  TIKE) 

SET  SW  D  &  E  TO  2 
I  DELTE  -  5 
LOOPO  -  0 


4  AQF2 

T  -*CAPTS 
(SETTING 
TIME) 


HI:HF 


SET  SW  R  TO  1 
HI  -♦HS 
DIRI-^  DIRS 


SET  SW  R  TO  2 
HF  -»^HS 
DIRF-f  DIRS 


CLEAR  COUNTERS; 
LOOP,  LOOPO, 
LOOPl,  LOOP2 


AQCAPR 


FIGURE 


FIGURE  3-6.  AQIIMT  (Continued) 
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AQRl 


-h|\1 

0002/ 


LOOPl  +  1 
-►  LOOPl 


T  -*<;apti 

DIRF  DIRS 
HF-»  HS 
SET  SW  R  TO  2 


T  -*<3APTF 
DIRI  -*  DIRS 
HI-*  HS 
SET  SW  R  TO  1 


CLEAR 
COUNTER 
LOOP  2 


T  .  Tt  TFMTI 
F  I 

PUT  SEGNOS  IN 
A  TABLE. 


SET 

COUNTERS 
(N  &  W) 


AC7D,E 


FIND  NUMBER  OF 
CONSECUTIVE 
SEGMENTS 


COMPUTE  AND 
&  STffllE  IN  TBLOC 


UPDATE  ADDRESSES 
&  COUNTERS 


FIGURE  3-7.  AQTINT  (Continued) 
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3.3  OBSERVATION  SIMULATION  -  OBSIM 

The  purpose  of  the  Observation  Simulation  Program  is  to  compute 
topocentrlc  coordinates  for  a  satellite  pass  over  a  given  set  of  sensors. 
It  is  assumed  that  acquisition  times  are  provided,  along  with  the  time 
frequency  of  observations  desired  during  the  acquisition  interval. 


3.3.1  OBSIM  INPUT- OUTPUT  SPECIFICATIONS 

The  program  requires  aa  input  the  following  quantities: 

(1)  EBLOC,  elements  of  the  satellite  orbit  in  M  N 
representation  and  sidereal  time  at  epoch 

(2)  SBLOC,  sensor  identification  and  station 
coordinates  of  the  sensor(s) 

(3)  TBLOC,  initial  and  final  time  limits  of  the 
acquisition  interval  for  the  sensor,  sensor 
observing  frequency,  sensor  observation  type, 
and  maximum  range  of  sensor  effectiveness. 

The  output  of  the  program  is  the  block  of  data,  OBLOC,  containing 
the  following  information: 

Sensor  number  (identification) 

Time 

IWo  angular  quantities  and/or  Range  and/or 
Range  rate 

The  program  obtains  the  simulated  observations  sensor  by  sensor. 
These  observations  are  stored  in  core  to  a  maximum  of  500  points.  Any 
further  observations  will  be  punched  on  observation  cards. 


3.3.2  OBSIM  FORMULATION 

The  following  steps  provide  the  required  observation  simulation 
at  the  points  specified  by  the  acquisition  interval  and  the  observing 
frequency  for  each  particular  sensor. 
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The  value  of  the  local  aidereal  time  at  the  required  observation 
time  is  given  by: 


e  m  (6  +X  )  +  t  (0,0043752691), 

C  c 

o 


(3.3.1) 


where  Xg  is  the  east  longitude  of  the  station  in  radians,  t  is  the  current 
time  in  minutes  relative  to  the  satellite  epoch,  and  9^^  is  Greenwich 
Sidereal  time  at  epoch  In  radians. 


The  station  position  vector  components  are  computed  from 

X  ■  -  X  cos  6 
c 

Y  -  -  X  sin  0  (3.3.2) 

c 


me  81 

J: 


Obtaining  Che  satellite  position  vector  (x,  y,  z)  from  MNREP 
permits  the  computation  of  the  range  vector 


f  p  -  X  +  X 


(3.3.3) 


Z  +  z 


and  from  this,  the  range  to  the  satellite 


V' 


+  Pv  +  P, 


(3.3.4) 


If  the  sensor  has  a  limited  range,  p  ,  then  the  criterion 

®  ’  '^max’ 


P  <  P, 


max 


(3.3.5) 


must  be  satisfied.  Also,  if  the  sensor  is  a  visual  type,. then  the  following 
criterion  must  be  fulfilled.  The  satellite  will  be  visible  if  illuminated 
and  If  the  elevation  angle  of  the  Sun  is  negative.  The  elevation  angle  of 
Che  Sun  is  negative  If,  and  only  if. 


sin  h 

e 


XL  +YL  +ZL 
X  y  z 

V:x)^  +  (Y)^  +  (z)^ 


(3.3.6) 
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The  satelHte  will  be  illuminated  if 


cos  ^  ■ 


1 

r 


(3.3.7) 


and  if  cos^  0,  then  the  satellite  will  be  illuminated  if,  and  only  if 


F 

2 

cos  ^  >  1 

• 

(3.3.8) 

The 

direction  cosines 

to  the  Sun  are  computed  by 

€ 

■  cos  6 

• 

cos  a 

e 

L 

■  cos  5 

0 

sin  a 

0 

(3.3.9) 

^  e 

“  si'' 

where  the  right  ascension  of  the  Sun,  a  ,  is  obtained  from 

9 


a  ■  i  ■  C .  sin  2  i 
e  o  4  e 

and  the  declination,  5  ,  from 

o 


(3.3.10) 


6  •* 

e 


tan 


-1 


sin 


“•] 


Equation  (3.3.10)  requires  the  current 
Sun.  This  is  computed  from 


(3.3.11) 

value  of  the  true  longitude  of  the 


(t  +  t^)  +  sin  (t  +  t^)  -  C3  J  ,  (3.3.12) 

where  L^,  the  mean  longitude  of  the  Sun  at  the  beginning  of  the  year  in 
radians,  and  -C3,  a  corrective  constant,  are  obtained  from  the  STLC  sub¬ 
routine.  The  other  constants  in  Equations  (3.3.10),  (3.3.11),  and  (3.3.12) 
are 


-  0.01720279  rad/day 

C2  -  0.0333358 

C,  -  0.0431096 
4 

Cj  -  0.4336635 
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The  satellite  azimuth  and  elevation  angles  are  computed  from 
L 

V  I 

27r  (3.3.13) 


A  «  tan 


r  L  T 

y 


and 


h  -  sln’^  L  ,  -  ?  <h  <  ^ 

*h  -  -  I 


(3.3.14) 


Equations  (3.3.11)  and  (3.3.12)  require  the  vector  components 


L  ■  ~  (P  cos  0  sln0  +p  sln0  sln0 -p  cos0  ) 

Xj^p  x  ^  t'y  ^ 


h  { 


L..  “  n  <P,.  CO®®  ■  P„  ®i“  ®) 


Vjj  P  y 


(3.3.15) 


L  ■  ~  (P  cos  6  cos  0+  p  sln0cos0+p  sln0) 


V.  *h 


The  right  ascension  and  declination  may  be  found  from 


a  <■  tan 


1  Til 

,  0  ^  a  <  27t 

. 


t  *  1  ^  Si  ^ 

6  ■  sin  L  -r  <  ^  <  t 

Z  Z  ~  z 

Equations  (3.3.16)  and  (3.3.17)  require  the  L  vector  components 


(3.3.16) 

(3.3.17) 


fl 


(3.3.18) 
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The  remaining  simulated  quantity,  range  rate,  Is  computed  by 

p  -  L  (i  +  X)  +  L  (y  +  Y)  +  L  i  ,  (3.3.19) 

X  y  B 

where  k,  y,  and  z  are  components  of  satellite  velocity  obtained  from 
MNREF,  and 

X  -  -ye 
Y  -  xe 
0  -  0.05883447. 

3.3.3  OBSIM  PROGRAM  SPECIFICATIONS  SUMMARY 


Svstem  Innut 

EBLOC 

XLSUNO 

OBSOPT 

SBLOC 

C3 

TBLOC 

PERT 

Associated  Innut 

Cards 

E  Card 

AQTINT  CONTROL 

S  Card 

Svstem  Output 

OBLOC 

Svstem  Common  Subroutines 

ARCXAN 

MNREP 

SENGET 

EUNPCK 

NEJOB 

SEPSUB 

EXEND 

OBPCK 

FOBPCK 

GLOP 

PAGECON 

SETJC 

lOBPCK 

PANT 

ARCSIN 
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e.  Phllco  Subroutines 
FSIN 
FCOS 
FATAN 
FSQRT 


3.3.4  OBSIM  SCHEMATIC  COMPUTATIONAL  SEQUENCE 

The  Observation  Simulation  flow  diagrams  are  shown  in  Figures3-8 
and  3-9.  The  following  glossary  of  terms  explains  the  references  made 
throughout  the  diagrams  to  functions  presented  In  the  formulation. 


RHO 

Computes  d ,  R,  _£,  (Equations  3.3.1 
and  3.3.4). 

ANGSUN 

Computes  a^,  6^,  L^,  sin  h^, 

3.3.9,  3.3.10,  3.3.11,  and  3.3.12) 

LUMANG 

Computes  cos  ^  (Equation  3.3.7). 

ELEV 

Computes  (Equation  3.3.15). 

AZIM 

Computes  A  (Equation  3.3.13). 

RTASCN 

Computes  L,  a  (Equations  3.3.16,  3 

DECLIM 

Computes  b  (Equation  3.3.17). 

ROOT 

Computes  p  (Equation  3.3.19) 

30UTB  1 

Provides  OBSIM  output  according  to 

OBSOUT 
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3.4  MONTE  CARLO  -  MOCARO 

The  Monte  Carlo,  MOCARO,  Program  Unit  is  concerned  with  the 
generation  of  sets  of  contamlnsted  observations  from  the  set  of  hypotheti¬ 
cally  true  observations.  The  generation  process  is  based  on  the  hypo¬ 
thesis  that  the  difference  between  the  contaminated  and  true  observations 
is  represented  by  a  random  sensor  error  of  fixed  standard  deviation, 

O  .  ,  and  a  bias  error  of  fixed  magnitude.  The  standard  deviation  error 
obs 

and  bias  error  are  therefore  representative  of  the  sensor  accuracy. 


3.4.1  MOCARO  INPUT -OUTPUT  DATA 

The  input  data  consists  of: 

(1)  OBLOC,  true  observations 

(2)  SGBLOC,  sensor  standard  deviation  and  bias  errors 

(3)  FIRSTRN,  first  random  number  used  to  start  the 
generation  of  random  normal  deviates 

<4)  COFLAG,  control  option  to  print  out  contaminated 
observations 

(5)  K,  the  number  of  sets  of  contaminated  observation 
to  be  generated. 

The  output  is  a  block  of  contaminated  observations,  COBLOC, 
containing  the  information: 

Sensor  number 

Time 

Two  angular  quantities  and/or 
Range  and/or 
Range  rate 
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3.4.2  MOCARO  FORMULATION  * 

The  contaminated  obaervatlon,  OBS  ,  Is  obtained  by  the 
relationship, 

OBSe  -  +  BIASq^s  +  0^^^ 


where 


OBS^  simulated  value  of  the  observation  from  OBLOC 
random  normal  variate 

BIAS...  fixed  estimate  of  bias  error  of  the  sensor's  measurement 
Oob 

a  Qpg  fixed  estimate  of  standard  deviation  of  the  sensor's 
measurement 


The  random  normal  variates,  X-^,  are  obtained  by  a  generation 
and  subsequent  transformation  of  uniform  random  variates.  The  generation 
of  uniform  random  numbers  is  obtained  from  the  relationship 


r  +  1 
n 


MOD  2 


47 


(3.4.1) 


where  G  is  a  large  odd  number.  The  starting  random  number,  r  ,  is  of  the 
form. 


r  *  4K  +  1  (3.4.2) 

o 

where  K  may  be  any  positive  integer.  Equation  (3.4.1)  will  produce 
pseudorandom  integers  between  0  and  2^  .  The  integers  are  changed  to  a 
more  convenient  fractional  form  ranging  from  0  to  1  by  moving  the  binary 
point  to  the  first  bit  position. 


*The  procedure  for  generation  of  the  random  normal  variate  is  summarized 
according  to  the  programming  development  provided  by  the  H.  S.  Gelman  Co. 
Limited ,  Toronto ,  Canada . 
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The  transfornatlon  from  the  uniform  random  varlatea  to  atandard- 
Ized  (  a  >  0)  normal  variates  la  governed  by  the  relationship, 

-<4 

e  '“2^  dt.  (3.4.3) 

Since  the  closed  analytic  form  of  the  Inverse  of  this  relationship  Is 
unknown,  a  table  look-up  and  Interpolation  procedure  Is  used  to  find  the 
normal  variates,  from  the  generated  uniform  varlatea,  r. 

3.4.3  MOCARO  PROGRAM  SPECIFICATION  SUMMARY 

a .  System  Input 


OBLOC 

FIRSTRN 

COFLAG 

SGBLOC 

MCFIRST 

KMAX 

CCARO 

b.  Associated  Input  Cards 
M  CARD 

MOCARO  CONTROL 

c .  System  Output 

COBLOC  VELNO 

<r.  System  Common  Subroutines 


COBFCK 

FAGECON 

INITCOB 

GLOP 

PANT 

COBGET 

INITOBS 

REIW 

HEAD 

ICOBFGK 

SIGGET 

INITSIG 

NOim 

REDNI 

SFXINT 

OBSGET 

EXEND 

CARKR 
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e.  Phllco  Subroutine! 

(None) 

3.4.4  MOCARO  SCHEMATIC  COMPUTATIONAL  SEQUENCE 

The  Monte  Carlo  flow  diagrams  are  presented  In  Figure  3-10. 
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3.5  DIFFERENTIAL  CORRECTION  -  SGPDC 

The  purpose  of  the  differential  correction  program  Is  to  de¬ 
termine  the  sets  of  orbital  elements  which  Individually  best  represent, 

In  a  least  squares  sense,  the  corresponding  sets  of  acceptable  Input 
observations.  This  routine  Is  based  on  the  theory  of  motion  In  the 
two-body  problem  with  the  optional  provision  of  Including  the  effects 
of  the  secular  perturbations  on  the  orbital  elements  produced  by  the 
equatorial  bulge  of  the  earth  and  air  drag. 

The  basic  computational  sequence  In  the  routine  consists  of: 

(1)  the  computation  of  theoretical  observations  (either 
with  or  without  perturbations)  at  the  same  time 
points  as  the  Input  observations  on  the  basis  of  a 
preliminary  set  of  Input  orbital  elements. 

(2)  the  formation  of  observation  residuals  (observed  minus 
computed) . 

(3)  the  comparison  of  the  magnitude  of  the  residuals  with 
maximum  values  beyond  which  all  residuals  are  rejected. 

(4)  formation  of  linear  correction  equations  containing  the 
residuals  and  the  element  corrections  (either  with  or 
without  perturbations). 

(5)  solution  of  the  least  squares  matrix  of  the  correction 
equations  for  the  corrections  to  the  elements. 

Following  this  sequence  of  computations,  the  new  set  of  elements 
are  obtained  by  applying  the  corresponding  corrections  to  the  old  set  of 
elements  and  repeating  the  above  process  until  the  RMS  value  of  the  last 
residuals  converge  to  a  desired  magnitude  considered  as  acceptable. 

The  formation  of  the  correction  equations  Is  accomplished  by  use 
of  analytical  differential  correction  formulas.  The  orbital  elements  em¬ 
ployed  in  these  expressions  are: 

a  ~  e  F,  a  vector  with  magnitude  of  eccentricity,  e, 
directed  towards  perigee 

n,  the  mean  motion 

■  M^  +  cu,  the  mean  argument  of  latitude  at  arbitrary  epoch, 
t^,  of  mean  anomaly,  M^,  and  argument  of  perigee,  cu 
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-  the  nodal  longitude 
1  ■>  orbit  Inclination 

c"  ■  the  drag  parameter  defined  by  the  equation 

L 

o  cc  o  o  o 

0 

where  L  la  the  mean  longitude. 

The  adoption  of  Cl  and  1  to  prescribe  the  orbit  plane  orientation 
and  Uq  to  denote  the  Initial  position  at  epoch,  necessarily  restricts  the 
application  of  the  differential  correction  routine  to  nonequatorlal  orbits. 
The  conversion  of  the  Input  element  set  to  the  above  form  Is  accomplished 
within  the  program. 


3.5.1  SGPDC  INPUT-OUTPUT  DATA 


a.  Numerical  Incut 


The  Input  observational  data  accepted  by  the  program  may  be  any 
combination  of  the  following  types: 

Topocentrlc  right  ascension,  ot,  and  declination, 6  ,  or  azimuth, 
A,  and  elevation  angle,  h. 

Slant  range , p  . 

Slant  range  rate,p  . 

Included  with  the  above  observations  are  the  Identification  number  of  the 
observation  type,  the  associated  station,  and  the  time  of  observation. 

The  source  of  the  above  observational  data  Is  output  from  the  Monte  Carlo 
Error  Generator  stored  In  the  computer  In  the  contaminated  observation 
block  (COBLOC). 


The  Input  station  coordinates  are  contained  In  SBLOC. 

The  Input  set  of  orbital  elements  are  the  NM  type. 

a^l^  ■  icoB  <4  component  of  a  along  the  nodal  line. 

a  „  ■  islno),  component  of  a  perpendicular  to  the 
^  nodal  line 
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”  n/p  Mi  orbital  angular  momentum  vector. 

L^  *  ***  U)  jl  ^1  the  mean  longitude  of  the  satellite  at  epoch. 

>  the  drag  parameter  defined  by  the  i  lu.u  ivi  i; 

t“t  +P„  (N-N)+C  (N-N)^  where  N  Is  the 

o  No  o  o  o 

revolution  number  and  P  Is  (he  nodal  perjnd  at 

satellite  epoch.  ° 

t^  -  time  of  satellite  epoch. 

This  Input  element  set  Is  stored  In  the  element  block  0  B^OC) . 
b.  Proaram  Control  Incut  Data 

(1)  Perturbation  option. 

(2)  Number  of  element  correction  iterations  override. 

(3)  Specific  elements  to  be  corrected  override. 

(A)  Residual  root-mean-square  factor  override. 

(5)  First  absolute  maximum  range  and  angle  residual 
override. 

(6)  Second  absolute  maxlnaim  range  and  angle  residual 
override . 

(7)  Absolute  maximum  range  rate  residual  override. 

(8)  Residual  root -mean- square  convergence  criterion 
override. 

(9)  Option  to  print  out  variant  classical  elements  and 
classical  delta  elements. 

(10)  Option  to  print  out  variant  epoch  position  and  velocity 
and  epoch  delta  position  and  velocity. 

(11)  Option  to  punch  out  variant  classical  elements. 

(12)  Option  to  punch  out  variant  epoch  position  and 
velocity. 


3-48 


SIMULATION  ERROR  ANALYSIS  SYSTEM 


PROGRAM  DOCUMENT 


(13)  Option  to  print  residual  RMS  and  number  of 
observations  used  and  rejected. 

(14)  Option  to  print  last  Iteration  residuals. 

The  above  data  are  Inputs  to  the  program  via  the  SGPDC  Control  card, 
c.  Output  Data 

(1)  Variant  elements  (VEBLOC)  . 

(2)  Classical  delta  elements  (DEBLOC) . 

(3)  Optional  output  data  are  listed  above  (Items  9  through  14) 
under  Program  Control  Data. 


3.5.2  SGPDC  FORMUUTION 

The  following  formulation  Is  Intended  to  serve  as  description  of 
the  fundamental  computations  In  the  program  and  their  relation  to  the  pro¬ 
gram  objective,  and  Is  not  Illustrative  of  the  actual  computational  sequence. 
The  program  Information  flow  diagrams  (Figures  3-11  through  3-14)  describe 
the  details  of  the  complete  computational  sequence. 

a.  Preliminary  Calculations 

This  part  of  the  program  calculates  "observations"  of  the  orbit 
specified  by  the  Input  set  of  elements  (or  subsequently  corrected  elements) 
made  from  the  sensor  station.  Given  the  station  coordinates  of  latitude, 0  , 
east  longitude,  \  ,  and  height  above  sea  level,  H,  and  Greenwich  sidereal 

time,  ^to’  satellite  epoch,  t^,  the  following  procedure  computes  the 
observations  p^,  p^,  and  the  direction  cosines  of  the  unit  vector,  L,  from 
the  station  to  the  satellite  for  time,  t,  relative  to  satellite  epoch. 

Compute  local  sidereal  time ,  @  at  time,  t, 

0  -  \  +  (0.0043752691) t,  (Mod  2  tt)  (3.5.1) 
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Compute  the  station  vector,  R, 


X  ■  -X  C086 
c 

Y  -  -y  sine 


Z  -  -y^ 


(3.5.2) 


where  the  x  ,  y  quantities  are  obtained  from  (SBLOC)  previously  stored 
with  the  appropriate  Station  ID. 

Compute  the  slant  range,  p^, 

ft-r+R.  (3.5.3) 


(3.5.4) 


Px  -  *  +  X  "I 

P  -  y  +  X  > 

y 

P  -  z  +  Z,^ 
z 


where  x,  y,  z  are  components  of  r,  obtained  from  the  MNREP  subroutine  by 
means  of  the  Input  elements  and  the  time,  t. 


Compute  unit  vector  from  the  station  to  the  satellite  In  the 
equatorial  coordinate  system. 


L  - 

xc 


ic<  L 


yc 


L 

V  ZC 


(3.5.6) 


Compute  range  rate,  p^. 
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Y- 

X  -  -Y  0,0  -  0.058,834,47 

r/V-  X0  ,  (3.5.7) 

Z  -  0 

4-i+i.  (3.5.8) 

Pc  “  -  ■  kc~  \  ^  0-5.9) 

where  x,  y,  z  are  components  of  r,  obtained  from  the  MNREP  subroutine. 

b.  Residuals 


The  observation  residuals  are  given  by  the  following  expressions. 
The  nonsubscrlpted  symbols  denote  the  Input  observational  quantities,  and 
the  subscript  c  denotes  the  above  computed  observational  quantities. 

If  range  p,  Is  observed,  the  residual  Is: 


R^-P-P^  (3.5.10) 

If  azimuth  A,  and  elevation  h,  are  observed,  the  residuals  are, 
respectively. 


where 


p  A  ' 

(t  -  L^)  and. 

(3.5.11) 

(L  -  . 

(3.5.12) 

r\^ 

A  u  S 
xh  - 

+  A,E  +  A,Z  , 
yh  —  zh  —  ’ 

(3.5.13) 

f\,  'V 

D  1.  S 

xh  — 

+  D.E  +  D,Z  ,and 
yh  —  zh  “  ’ 

(3.5.14) 

L  u  S 

xh  • 

+  L^E  +  L^Z  . 
yh  “  zh  “• 

(3.5.15) 
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The  S,  E,  Z  unit  vector  eyateei  end  the  horieon  oriented  unit 

vector  system  are  defined  by: 


sin  0  cos  9 
sin  0 sin  9 
-  cos  0, 


(3.5.16) 


cos  0  COS  9 
cos  0  sin  9 
8ln0  , 


(3.5.17) 


(3.5.18) 


-  cos  A  cos  h 
sin  A  cos  h 
sin  h  , 


sin  A 
cos  A 

0  >  end 


(3.5.19) 


(3.5.20) 
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■  cos  A  sin  h 

>  -  sin  A  sin  h 

■  cos  h , 


(3.5.21) 


If  right  ascension  a,  and  declination  6 ,  are  observed,  the 
residuals  are; 


A  •  (L  -  L  ) 

—  —f,' 


where 


P  D  •  (L  -  L  ) 

c  c 


(3.5.22) 

(3.5.23) 


(3.5.24) 


=  -  sin  6  cos  a 
»  -  sin  a  sin  6 
=  cos  5,  and 


“  cos  6  cos  cx 
“  cos  6  sin  a 
-  sin  6. 

range  rate  p,  Is  observed, 
-p^Ap-  (  p  -  p  c)  Pc 


(3.4.25) 


(3.5.26) 


(3.5.27) 
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c.  Residual  Re  lection  Teat 

After  forming  a  set  of  residuals  corresponding  to  a  set  of  ob¬ 
servations,  the  magnitudes  of  the  angle  and  range  residuals  are  compared 
with  an  absolute  maximum  value  of  1000  km  and  the  range  rate  residual  Is 
compared  with  an  absolute  maximum  value  of  0.5  km/sec.  All  residuals  ex¬ 
ceeding  these  absolute  limits  are  rejected  from  the  current  Iteration. 
Following  the  above  first  residual  rejection  test,  a  second  similar  re¬ 
sidual  rejection  test  Is  performed  with  a  new  maximum  value  equal  to  1.5  x 
(RMS  value  of  the  previously  accepted  residuals]' .  The  remaining  number  of 
residuals  are  used  In  the  correction  Equation  (3.5.28).  However,  upon 
completion  of  the  calculation  of  the  new  set  of  corrected  elements,  the 
absolute  maximum  value  of  the  first  rejection  test  Is  subject  to  a  change 
from  1000  km  to  75  km  If  the  new  RMS  value  of  the  residuals  Is  less  than 
50  km. 

d.  Correction  Equations 

This  part  of  the  program  relates  the  residuals  In  the  observa¬ 
tions  at  time,  t,  to  the  corrections  to  be  applied  to  the  Initial  orbital 
parameters  at  epoch,  t^.  The  procedure  allows  for  the  calculation  of 
the  Improved  set  of  orbital  elements  and  quantities  associated  with  the 
station  coordinates  at  the  observation  time.  The  procedure  permits  the 
combination  of  these  quantities  to  obtain  coefficients  of  linear  relation¬ 
ships  relating  residuals  to  any  combination  of  corrections,  4!l,Aa„„, 

Asyjj,  AU.AO,  Al,Ac".  Finally,  the  corrections  to  be  applied  to  the 
elements  are  determined  by  solving  the  (usually  over-determined)  system  of 
linear  correction  equations. 

The  correction  equations  have  the  form: 


(3.5.28) 

*  (=64i*"o  *  W,  “o  M'ai),  "  *  (Ml  ■ 


where  the  form  of  the  coefficients,  C^,  depend  on  the  observation  type  In 
residual,  R^,  and  time  of  observation.  These  coefficients  which  have  been 
developed  by  means  of  first  order  partlals  are  functions  of  the  orbit  ele¬ 
ments  and  computed  observations. 

The  coefficients  are  computed  by  first  establishing  the  R  and  V 
coefficients  at  time  t: 
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(^)  e  sin  E 


R  -  -fr  +  (U-U)R 


R 


xN 


R 


yN 

R 


(a^/r) 


(a^/r) 


o  u 


a  „  -  cos  (E  +0)) 
xN 


si**  (2  +<D) 


(2f)  (U-U^) 


(3.5.29) 


(a^/r)yjr^ 


(U  -  U  )  U 
o  u 


-  —  <  (1  +  -)  sin  (E  +0)) 


xN  r 


+  a  „  e  sin  E 
xN 


e  -  (I 


)e  cos  E 


yN 


:  4 


L  (1  +^1  - 


°yN  ^ 


1  + 


'JT^J 


)  (3.5.30) 


)  cos  (E  +(1) ) 


+  a  „  e  sin  E 
yN 


2U 

n  o 


-  (1  +  ^7 


e  )  e  cos  E 


(1  -*Vl  -  e2)^Vl  - 


^xN 

1  +Vl  -  e^J 


The  quantities,  r,  a,  a^jj,  a^^^,  e,  n,  U,  e  cos  E,  e  sin  E,  sin  (E  +0)), 
and  cos  (E  +  cu)  are  obtained  from  MNREF  subroutine. 
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When  the  slant  range  is  observed,  the  residual  and  coefficients 
of  Equation  (3.5.28)  are  given  by  the  expressions: 


R  -  (3.5.31) 


V 

■  L 

— c 

•  U  R  +  L  •  V  U 
“  n  “c  “  n 

(3.5.32) 

n 

(Aa 

xN 

»  L 

“C 

■UR„  +  L  -  VU^ 

—  xN  ~c  —  xN 

(3.5.33) 

CAa 

^^yN 

-  L 

— c 

■UR„  +  L  -  VU^ 

—  yN  -c  —  yN 

(3.5.34) 

^Au 

-  L 

— c 

•  U  R  +  L  .  V  U 
—  u  ~c  —  u 

(3.5.35) 

o 


L  •  V  r  cos  1  -  L  •  W  r  sin  1  cos  u 
— c  —  “c  — 


(3.5.36) 


C».-L  'Wtsinu 
A  1  — c  — 


(3.5.37) 


•  U  Re  ic  ■  ^  ‘^c  (3.5.38) 

where  R^  Is  given  by  Equation  (3.5.10),  jkc  is  given  by  Equation  (3.5.6),  and 
the  quantities  U,  V,  W,  sin  u,  and  cos  u  are  again  obtained  by  the  MNREP  sub¬ 
routine  . 


When  azimuth  A  is  observed  then  R  »  R2  as  given  by  Equation  (3.5.11), 
and  the  coefficients  are  obtained  by  replacing  T-c ,  in  Equations  (3.5.32) 
through  (3.5.38),  by  "X  Equation  (3.5.13).  Along  with  azimuth,  elcvoi  ion 
h  is  always  observed,  and  in  this  case,  R  R3  as  given  by  Equation  (3.5.12), 
and  the  corresponding  coefficients  are  obtained  by  replacing  1^  in  Equation 
(3.5.32)  through  (3.5.38)  with  S  Equation(3 .5 . 14)  . 

If  right  ascension  Ot  is  observed  then  R  •  R^  as  given  by  Equation 
(3.5.22),  and  the  corresponding  coefficients  are  obtained  by  replacing  Lc 
with  A  Equatlon(3.5.24) .  Along  with  right  ascension,  declination  6  is  al¬ 
ways  observed  and  in  this  case,  R  >  R5,  as  given  by  Equation  (3.5.23), 
and  the  corresponding  coefficients  ace  obtained  by  replacing  with  D 
Equation (3.5.25) . 
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If  range  rate.p,  la  obaerved,  the  preliminary  coefficients 
computed  from: 


5 

R  ■  ^  (e  cos  E  -  e^) 

u  3 

r 


R  -  f/3  4  (U  -  U  )  R 
n  o  u 


^  V  “ 

xN 


\  ‘  /  L 


sin  (E  +  CD)  -  a  „  e  sin  E  -  a  „ 
xN  yN 


-r  7 


cos  (E  4CD)  -  a  „  e  sin  E  4  a  „ 
yN  xN 


2R 


■  -  «//i  ^  '\Jl  -  e^  e  sin  E 


U  - 

xn 


U  - 

yn 


U  - 

c 


2Un 

’~r  ' 

n  0 


cos  (E  4  CD) 


sin  (E  4  cd) 


•x»  I*  ^ 


2 

L-. 

ap 


*yN  I  ^  «p 


are 


(3,5.39) 


(3.5.40) 
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then  form  the  coefficients: 


C.  ■  L 
An  -I 


CAa  „  ■  L 
xN  -c 


M  ■  It, 
yN  “c 


-c  —  cn  n  cnj  _c  — 

+  L  -  V  fpCU  +-u)-pol  +p  .VU 
-X  —  "c  n  r  n  ^^c  n  lie  n 

'L  -  U  p  (R„-vU„)-p  R„  +p  -  U 
-c  —  c  xN  xN  ^c  xNJ  Lc  - 

■  •  •  •  T  • 

+  L  -  V  p  (U„  +  -U„-p  U„  +p  -  V 
-c  -  c  xN  r  xN  '^c  xN  l-c  - 

'  L  -up  (R  „ '  -  vU  -  P  R  J  +  P  •  U  1 
“C  -  ^c  yN  yN  c  yN  Ip  - 


)  'UR 

jp  —  n 

5  .  V  U 

(3.5.41) 

.c  ■-  n 

+  p  '  U  R  „ 
lie  -  xN 

+  p  '  V  U  „ 
dc  -  xN 

(3.5.42) 

r  *  £•  •  1- 

Vp(U„  +  “U„)-p  U„  +P-VU 
—  '^c  yN  r  yN  “^c  yN  11c  “  ; 


f  •  •  1  • 

CAU  -L  -  u  p  (R  -vU)-p  R  +P  -  UR 
o  -X  -  c'u  u  ^cu  -X  -  u 


+  p  r  cos 
'  c 


•V  P„(U  +-U)-p  U  +p  'VU 
—  *^0  '  u  r  u  u  Ic  —  u 

cAn«-p  L  -  Urv  cos  i  +  L  •  V  cos  i  P  f  -  o  r 

c  — c  “  “C  ~  c  ^c 

'  V  r  cos  i  +  L  *  W  sin  I  P  (r  v  sin  u  - 

-  -c  —  c 

r  cos  u  -  P  'Nr  sin  i  cos  u 
_c  ~ 


(3.5.43) 

yN 

(3.5.44) 


+  '  V  r  cos  i  +  L  .  W  sin  1  P  (r  v  sin  u  -  f-cos  u) 

j-c  -  -j.  _  ' 


r  sin  i  cos  u 


(3.5.45) 
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''Ai 


L 


p  (r  V  cos  u  +  f  sin  u)  -  p  r  sin  u 
I^C  c 


+  id  •  W  r  sin 
- 

(3.5.46) 


U  R 
—  c 


V  U 


(3.5.47) 


where  R,,  given  by  Equation  (3.5.27),  Is  the  corresponding  residual  for 
the  above  coefficients.  The  correction  equation  Is  formed  as  an  Equation 
(3.5.28). 


Considering  all  of  the  correction  Equations  (3.5.28)  let: 

M 

r  C, ,  A,  -  R,. 

1^1  ij  1 

represent  all  such  equations  where:  Cij'i  are  the  coefficients,  Rtj'e  w* 
the  accepted  observation  residuals,^  'a  are  the  corrections  to  the 
orbital  elements,  and  N  Is  the  number  of  elements  to  be  corrected  and  J 
Is  the  number  of  accepted  observation  residuals.  The  resulting  matrix 
equation  Is  solved  to  give  the  corrections,  ^t'8>  «  least  square 

sense,  to  the  orbital  elements  at  time,  These  corrections  are 

applied  as  follows  (primes  denote  corrected  elements): 


An 


^0  “ 

n  (1  +  -^  ) 

0  n 

o 

(3.5.48) 

(c")' 

-  c"  +A  c” 

(3.5.49) 

c'  - 
0 

.ssm  c—) 

2  '‘360'' 

(3.5.50) 

II 

0 

U'  - 
0 

U  +AU 

0  0 

(3.5.51) 

"xNo 

"  “xNo  -"^“xN 

(3.5.52) 
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a ' “  a  „  +  Aa  „ 
yNo  yNo  yN 

(3.5.53) 

+  Af2 

0  0 

(3.5.54) 

1'  -  1  +  A1 

0  0 

(3.5.55) 

/-  L'  -  U'  +n  ' ,  If  W  -  COBI’ 

> 

0  ' 

jo  0  o*  z 

(3.5.56) 

\  L'  -  U'  -  n* ,  If  W  -  cosl' 
Vo  0  o  z 

< 

0  i 

Following  the  above  calculation  of 

the 

corrected  elements,  a 

representation  of  the  observations  Is  performed  on  the  basis  of  the  cor¬ 
rected  elements,  and  another  set  of  residuals  are  formed  by  using  the  same 
Input  observations.  The  RMS  values  of  the  last  two  seta  of  consecutive 
residuals  are  compared  to  Insure  convergence  of  the  computational  process. 
The  process  Is  complete  when  the  residual  RMS  converges  to  the  minimum 
value  considered  as  acceptable . 
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SENGET 

LSQS 

DELPCK 

MNREP 

CHGNXN 

EUNPCK 

NXJOB 

SXSRCH 

ELMPCK 

EXEND 

CARDER 

GLOP 

ELOUT  A 

SETJC 

Fhllco  Subroutines 

FSIN 

FASIN 

FL0G2X 

FCOS 

FSC^T 

F2X 

FMAIN 

FMAMU 

3.5.4  SGFDC  SCHEMATIC  C(»IPUTAT10MAL  SEQUENCE 

SGFDC  operations  are  expanded  in  Figures  3-11  through  3-14  to 
show  the  detailed  processes.  All  the  major  computations  given  In  the 
formulation  are  Indicated  where  applicable  In  the  diagrams,  and  any 
additional  computations  are  shown  as  needed. 

The  following  glossary  serves  as  a  centralized  source  for  the 
definition  of  storage  assignments  used  In  the  diagrams : 
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ABSMAX 

ABSMAXl 

ABSMAX 2 

ABSMAX 3 

ACCCNT 

CONTEST 

DCCCP 1 

COUNTL 

DIVFL 

KNTRL 

KTABLE 

OLDSUM 
ORRMS 
RCNT 
RCNT  2 
REJCNT 


Absolute  maximum  of  range  and  angle  residuals 
override  compiled  as  1000  km. 

Second  absolute  maximum  of  range  and  angle  residuals 
override,  compiled  as  75  km. 

Absolute  maximum  of  range  rate  residuals  override, 
compiled  as  0.5  km/ sec. 

Second  absolute  maximum  of  range  and  angle  RMS 
residuals  test,  compiled  as  50  km. 

Accumulated  nvimber  of  good  residuals. 

Maximum  value  acceptable  for  convergence  compiled 
as  0.05  percent. 

Elements  to  be  corrected  override  as  specified 
on  SCPDC  control  card. 

Number  of  elements  to  be  corrected  as  found  In 
the  current  KNTRL. 

Divergence  flag.  Indicates  If  new  element  set 
has  lead  to  a  larger  residual  RMS  than  the 
previous  element  set. 

Indicates  which  elements  are  to  be  corrected  as 
specified  by  KTABLE  or  DCCCP  1. 

Compiled  specification  of  element  sets  to  be 
corrected  in  given  sequence. 

Next  to  last  converging  RMS  residual  value. 

Last  converging  RMS  residual  value. 

Number  of  good  range  and  angle  type  residuals. 

Number  of  good  range  rate  residuals. 

Number  of  rejected  residuals. 
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YES  /  DCONCE  \ 
(INITULI 
'  \  ZATION)  > 


SCDCINT2 
SET  OP  CELLS 
»  FOR  ERROR 
RECOVERY 


DCKENI  4r  NO 


SWITCHES 
&  COUNTERS  : 
SET  UP  POBLOC. 
PACKING 


PRINT 

ERROR 

COMMENT 


STORXR8 


ANY 

OBSERVATIONS 


I  YES  SET 
}— ►  SW  A  &  SW 
I  B  TO  1 


RESIDUAL  \ 
REJECTION  J 


SET 

COUNTER,  RMS, 
SUMS  INITIALIZE 
POBLOC 
RETRIEVAL 


GETRMS^ 

MOVDATX 


PBSTBTl 


(END  OF  OBS) 


CORRECT!) 


MOVDATl 


^(END  \  - ' 

OF  OBS)  PBSTBT2 


SRSOUT 

(OUTPUT 

,RESIDS)y 


/'NO.OFAC 
/CEPTABLE 
I  OBS  >  NO. 

V  oP^eiM  ■ . 


CONTINUE  . 
CORRECTION 


6  )  COMPLI 
'T  CO 


O-W 


(CIRCIO) 


MOVE  MATRIX 
SOLUTIONS  INTO 
CORRES.  DELTA 
QUANTITIES 


DIVERGENCE 


n?RINT  RMS\ 

&  residualV 
y,  COUNTS?  y 


SRESOUT 


^  <10 
DIVERGENT 
L.  DCS?  j 


DIVCCMI  ^ 
OUTPUT  ERROR 
COMMENT  INCREMENT 
COUNT  OF  DIVER. 
DCS  &  DECREMENT 
RUN  COUNT 


Z'  PUNCH  \i,o 
(  CUSSICALUll 

1  NXJOB  j 

0 

V  ELEMENTS?/  1 

FUNCHTA 


CAIAYES 
lICAll— i 


VFCCT4 

y  PUNCH  \yeS 

1. 1 

^ELEMEHTS?y 


PUNCHTB 


VFCCT5 

PRINT 


r,  r  ] 

elBients?V 


FIGURE  3-11 


< 


PBSTBTl 


CIRCLEC 

CLEAR  COUNTERS, 
SUMS, 

INITULIZB  FOB 
IOC  RETRIEVAL 
-SET  LSQ  EXIT 
(FONCT) 


FIGURE  3-11.  SGPDC 
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CCCCE  ♦ 

CCCCP 

SET  SW  C  TO  1 

SAVE  RMS 

ELEMENTS 

COUNT  NO. 

INITIALIZE 

^  CLEAR 

CONFIGURATION 

w  OF  ELEMENTS 

KTABI£  FROM 

DIVERGENCE 

TO  BE  CORRECTED 

BEING 

CTABLE 

FLAG 

SET  REPEAT 

CORRECTED 

COUNTER 

MOVE  RMS 
•  INTO  ELEMENT 
BUFFER  (SVELT) 


CCCCF 

/■“any  V 

4RANGE,ANGLEr 

V  OBS?  J 


COMPUTE 
PERCENT  OF 
RANGE,  ANGLE 
CONVERGENCE 


SUFFICIENT  \  YES  , 
CONVERGENCE? 


CCCCW  ^ 
ELEMENTS 
CORRECTED 
SPECIFIED 
BY  INPUT 


^ALL  \ 

ELEMENTS 
vCORRECTED?> 


CCCCN  ^ 
COMPUTE 
PERCENT  OF 
RANGE  RATE 
CONVERGENCE 


r  SUFFICIENT  \ 
Convergence?  J 


IS  RMS  ^ 
DECREASING  , 


.  YES  /range.  ANGLE) 
*'*“VRMS  <  10  KM?J 


/  ANY  A 
GRANGE,  ANGLE! 

V  OBS  J 


CCCCG 

^divergence'N 

FLAG 

S.  SET?  J 


If  IS  RMS  \ 
NO\  DECREASING?  J 


SAVE 

CLEAR 

f  REPEAT 
-W  COUNTER 

DEI 

CURRENT  — 

^  DIVERGENCE 

»  REl 

RMS 

FLAG  I 

V-  OL  y 

COl 

|no 

NO  -  II 

1 

CCCCM  w  11 

ELEMENTS 
CORRECTED 
SPECIFIED 
BY  INPUT? 


SEX  DIVERGENCE 
FLAG  -  L 

I  SAVE  CURRENT  T 
RMS  USED 


FIGUW 


FIGURE  3-12.  SGPDC  (Continued) 
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DCONCE 


SAVE 

KeJ' 

SET  CTABLE 
FROM  RCTABLE 


<  ELEMENTS  \. 
CORRECTED  \ 
SPECIFIED  f 
BY  INPUT?  y 

DCONCET  W  NO 

/ - ^ - N 

/  USE 

I  PERTURBATIONS? 


KTABSET 


lELMPCK^ 


EUNPCK 


DCKENI^NO 

PRINT 

ERROR 

CCMMENT 


NXJOB 


YES  |S 
4 
i: 


FIGURE  3-1 


FIGURE  3-13.  SGPDC  (Continued) 
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C0EFF2I 


FIGURE  3-14 


'lA 


FIGURE  3-14.  SGPDC  (Continued) 
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RPT 

SUM 

MAX 

MAX  2 

XISTSG 

XJGRCF 

AIREC 

AZREC 

COIN 

CEIMSB 


Number  of  Iterations  per  element  correction 
specification. 

Sum  of  squares  of  good  range  and  angle 
residuals . 

Current  maximum  value  of  acceptable  range  and 
angle  residual  RMS. 

Current  maximum  value  of  acceptable  range 
rate  residual  RMS. 

RMS  multiplication  factor. 

Perturbation  control • 

Computes  A,  D  and  L  from  right  ascension  and 
declination  observations. 

Computes  A,  D  and  L  from  azimuth  and  elevation 
observations . 

Tests  the  overrides  input  on  the  SGPDC  control 
card  and  initializes  the  DC  accordingly.  CCIN 
uses  SETJC  to  initialize  perturbations. 

Converts  M  elements  to  classical  and  stores 
them  in  CEBLOC  (element  type  A  and  B  only). 

The  following  formulas  are  used : 


W 

z 


Q 


0 
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CMPCF 

CCMDEL 

COMRMS 

COMXLX 

CORRD 

CREKT 

DELXAU 


DOTPR 


a 

o 


ai 

o 


M  ■  L  n  -  CO 
o  o  o  o 


C  3  c 

o  o 


-  if  ^  0,  direct 
motion 

+  if  Wg  <  0,  retrograde 
motion 


Computes  coefficients  (of  Equation  3.5.28), 
for  range  and  angle  observations. 

Computes  AL,  AL  •  L  -  L  with  L  from  Equation 
3.5.14  or  3.5.26.  ” 

Computes  RMS  of  acceptable  observations. 

Computes  1^,  Equation  3.5.6. 

Computes  coefficients  C^  (Equation  3.5.28)  for 
range  rate  observations . 

Computes  the  corrected  elements  (Equation  3.5.48). 

Computes  geocentric  angle  between  observed  and 
computed  satellite  position  vector,  Au.  — 


Au  ■  tan 


»  ^b.> 

S  • 


Computes  vecto^  dot  pr^^ducts  of  U,  V  and  W  with 
any  of  JL^,  A,  A,  D  or  D. 


3-68 


SIMUUTION  ERROR  ANALYSIS  SYSTEM 


PROGRAM  DOCUMENT 


GEMDEL 


MOVDATI 

OBVEC 

OBVECP 

OBVECQ 


Generates  delta  classical  elements  according  to  the 
following  formulas: 


1  “yN 

-  tan’^ 

0 

*xN 

0 

M'  -  L'  +  fl'  -  0)' 

f  -ft'  if 

w 

z 

2 

0 

O  0  o 

1  +  ft '  if 

w 

< 

Aa 

■  a'  ■  a 

^  0 

z 

0 

0  0 

Ae 

■  e*  -  e 

0 

0  0 

Al 

-  1'  -  1 

0 

0  0 

An 

■  -  Q' 

0 

0  o 

Ao) 

■  m '  -  0) 

0 

0  0 

Am 

-  M'  -  M 

0 

0  0 

Ac 

■  c'  *  c 

Note:  Prime  Indicates  variant  element  set. 

All  A  angles  are  mod  27T. 

If  the  corresponding  element  has  no 
correction  specified,  the  delta  element 
is  set  "  0. 

Retrieves  one  processed  observation  from  FOBLOC. 
MOVDATI  has  a  special  return  for  end  of 
observations . 

Computes  6 ,  X,  Y. 

Moves  station  number,  observation  type,  time 
since  epoch,  and  X,  Y,  Z  Into  POBLOC. 

Moves  A  or  D  or  ^  and  L  into  POBLOC. 
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FUNCHXA 

PUNCHTB 

RDTSB 

RESREJl 

RESREJ2 

RESTELT 

RHOSB 

RRATE 

SAVELT 


SRESOUT 

SRSOUTI 


Punches  Type  A  variant  element  cards  1  and  2. 
(See  card  formats). 

Uses  common  subroutine  MNREP  to  compute  r,  f 
elements  at  epoch  and  punches  Type  B  variant 
element  cards  1  and  2.  (See  card  formats). 

Computes p^,  Equations  3.5.8  and  3.5.9. 

Rejects  range  and  angle  observation  If  residual 
Is  greater  than  MAX  and  accumulates  a  count  of 
acceptable  and  unacceptable  observations;  also, 
computes  the  sum  of  squares  of  acceptable 
residuals . 

Same  as  RESREJl  except  rejects  range  rate 
observation  greater  than  MAX2. 

Restores  an  element  set  from  the  SVELT  buffer, 
(See  SAVELT  for  contents). 

Computes  p^,  Equation  3.5.3. 

Computes  R,  Equation  3.5.7. 

Saves  a  corrected  element  set  In  SVELT  buffer. 
This  Includes  the  following:  a^  ,  a  ,  h^  , 

*”o  ^  o  o 

h  ,  h  ,  L  ,  c  ,  rms  for  range  and  angles, 

^0  0  ^ 

rms  for  range  rate,  — ,  Aa  Aa  Au  , 

®  ’  n  xN’  yN’ —  o 

AO,Al,  Ac",  number  of  acceptable  residuals, 

number  of  residuals  rejected,  number  of  elements 

corrected . 

Uses  program  subroutine  COMRMS  to  compute  the 
RMS's  and  outputs  them  In  addition  to  the  count 
of  the  residuals  accepted  and  rejected. 

Performs  the  following: 

(1)  Computes  vector  magnitude 

(2)  Computes 
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(3) 

Uses  DELTAU  (program  subroutine)  to 
compute  Au. 

(4) 

Computes:  U  ■  U  +Au,  <^t  ■  — s=-, 

c  p 

jS  -  sln"^  ] 

’^obs  1 

(5) 

Outputs:  Station  ID,  time  residuals,  rejection 
flags,  vector  magnitude.  At,  U,  j6  . 

TARITE 

Uses  common  subroutine  ELOUTA  to  print  classical 
elements  In  EBUF. 

TASET 

Saves 

classical  elements:  a,e,l,n,cu,M, 
o’  o’  0  o’  o’  0 

^  In  EBUF  for  output. 

TBRITE  Uses  ELOUTB  to  print  r,  f  elements  In  EBUF  and 

prints  Ar,  At  elements  In  EBUFD. 


TBSET  Uses  common  subroutine  MNREP  to  compute  r ,  ^  at 

epoch  and  saves  the  following  In  EBUF:  x,  y,  z,  x, 
y,  z,  C  ,  t  .  Also  computes  Ar,  Ar  elements 
and  savis  tSem  In  EBUFD. 

ZDCOUT  Outputs  cotisnents  Indicating  perturbation  type 

used  In  SGPDC. 
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3.6  E1£MENT  DISTRIBUTION  -  DCDIST 

Statistical  processing  of  the  delta  elements  generated  by  the 
Differential  Correction  Program  Unit  is  the  function  of  the  DCDIST  Program 
Unit.  The  delta  elements  generated  by  SGPDC  are  the  differences  between 
the  variant  element  sets  and  the  reference  element  set.  These  differences 
represent,  within  the  sensor  error  model  chosen,  errors  In  the  determina¬ 
tion  of  orbital  elements. 


3.6.1  DCDIST  INPUT -OUTPUT  DATA 

The  Input  data,  DEBLOC,  consist  of  K  sets  of  the  quantities, 

Aa,  Ae,  Al,Afl  ,Aia>  ,  Am^,  and  possibly  Ac^. 

The  DCDIST  control  parameters,  input  via  the  SPGDC  control  card,  consist 
of : 


DCNS  The  number  of  samples  of  an  element  error 

used  to  compute  the  mean  and  standard 
deviation  error. 

DCI  The  number  of  cells  in  each  element  frequency  - 

distribution. 

DCSl  The  number  of  standard  deviations  below  the 

mean  at  the  first  cell  of  the  element  frequency 
distributions. 

DCS2  The  number  of  standard  deviations  above  the 

mean  at  the  last  cell  of  the  element  frequency 
distributions . 

DCCCFI  Control  parameter  from  SGPDC  Indicating  which 

elements  have  simulated  errors. 

DCCCF3  Control  parameter  from  SGPDC  Indicating 

perturbation  analysis  option. 

Classical  element  distribution  suppression. 


DCCCPIO 
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The  output  feom  DCDIST  routine  contains  a  printed  listing  of  the 
following  statistical  data: 

Identification  of  error  quantity 

Mean 

Standard  deviation 

Minimum  error,  MIN 

Maximum  error,  MAX 

Summation  of  DCMS  errors 

Summation  of  the  square  of  DCMS  errors 

OCNS 

Total  number  of  errors,  N 

DCSl 

DCS2 

Frequency  distribution 

Lower  limit  of  the  frequency  distribution 

Cell  width  of  the  frequency  distribution 

3.6.2  DCDIST  FORMULATION 

The  presentation  of  the  computations  In  the  DCDIST  Unit  Is 
given  under  Common  Subroutine,  STOB. 

3.6.3  DCDIST  PROGRAM  SPECIFICATION  SUMMARY 
a.  System  Input 


DEBLOC 

DCI 

DCCCPl 

DCSl 

DCNS 

DCCCP3 

DCS  2 

DECOUNT 

DCCCPIO 
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b.  Associated  Input  Garda 

SPGDC  COtmiOL 
MOCARO  CONTROL 

c .  System  Output 


For  each  of 
the  following  output 

the  element 
Is  produced : 

errors,  Aa,  Ae,  Al,  Ai^  Ao),  AM^,  AC^, 

MU 

MAX 

Freq  Dlst  Lower  Limit 

SIGMA 

Sum  of 
Errors 

Freq  Dlst  Cell  Width 

MIN 

Sum  of 
Squared 
Errors 

Freq  Dlst 

d.  System  Common  Subroutines 
STOB  SPOUT  I 

EXEND  PANT 


e.  Phllco  Subroutines 


(None ) 


3.6.4  DCDIST  SCHEMATIC  COMPUTATIONAL  SEQUENCE 

Figure  3-15  displays  the  Information  processing  for  DCDIST 
using  the  STOB  subroutine.  Details  of  the  STOB  routine  are  available 
In  the  subroutine  section. 


FIGUM  3-15.  DCDIST 
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3.7  ERROR  PREDICTION  -  ERF 

The  purpose  of  the  Error  Prediction  Program  Unit  Is  to  compute 
the  errors  In  position  and  velocity  at  specified  points  due  to  variations 
In  the  orbit  elements  established  in  i the  MOCARO-SGPDC  loop..  The  unit 
Is  functionally  connected  to  the  Prediction  Distribution  Program  Unit  and 
the  two  units  are  referred  to  In  the  executive  logic  as  ERPRED.  This 
functional  connection  Is.  necessary  because  of  the.  quadrant,  or  segment, 
prediction  analysis  specification  for  the  system.  In  response  to  this 
system  function,  the  two  units  were  designed  to  provide  compatible  Inter¬ 
faces  and  thus  act  as  two  large  subroutines  under  the  control  of  an 
executive  driver.;  However,  for  logical  presentation  of  the  system  components, 
these  two  units  are  discussed  separately. 

'  .  Sevei;al  modes  of  operation  are  available  for  the  Error  Prediction 
Program  Unit.  These  likewise  apply  to  the  combined.  ERPRED  function.  The 
modes  of  operation  are: 


(1)  Specification  of  points  for  evaluation  of  errors,  designated 

by  Casetvpe.  an  Integer  from  0  to  3. 

(a)  Casetype  "0:  The  prediction  points  are  equally 
spaced  In  mean  anomaly,  M,  and  are  referenced  to 

the  first  perigee  passage  after  epoch.  P.  ■  Initial  M, 
Ap  -  Am,  and  P-  ■  final  N.  Note:  If  the^eccentrlclty 
is  too  small,  then  these  data<are  automatically  assum¬ 
ed  to  be  U  data,  mean  latitude  and  a  printout  Is  made 
Indicating  this. 

(b)  Casetype  "2:  There  are  N  equally  spaced  points  In 
each  of  the  four  quadrants  of  mean  anomaly,  M, 
following  the  time  of  the  last  observation.  Pj^  ■  N. 

(AP  and  Pf  not  used). 

(c)  Casetype  ■  3:  The  prediction  points  are  equally 
spaced  In  time  referenced  to  epoch.  P^  ■  Initial 
time,  P  "At,  Pf  ■  final  time. 

(2)  Specification  of  form  of  output 

(a)  If  OTPFLAG  ■  0,  then  the  position  and  velocity  errors 
are  referenced  to  the  x,  y,  z,  coordinate  system. 
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(b)  If  OTPFLAG  0,  then  the  poeltlon  end  velocity  errore 
ere  referenced  to  the  U,  V,  W  coordlnete  eystem. 


(3)  Snectflcetlon  of  Method  of  Computetlon 

(e)  If  APMFLAG  ■  0,  then  the  errore  ere  computed  by 

representing  the  verlent  orbits  using  MMREP  end  sub- 
trectlng  the  reference  orbit  position  end  velocity. 

In  this  mode,  the  perturbetlon  control  on  MOtEP  Is 
thet  assigned  to  the  system  In  Inltlellsetlon. 

(b)  If  APMFLAC  *  1,  then  the  errors  ere  computed  using 
MMREP  with  perturbations,  overriding  the  system 
control. 

(c)  If  AniFLAG  ■  2,  then  the  errors  ere  computed  using 
MMREP  without  perturbations,  overriding  the  systeie 
control . 

(d)  If  APMFLAC  ■  3,  then  the  errors  are  computed  by  mul¬ 
tiplying  the  errors  In  the  element  set  by  e  mtrlx  of 
partial  derivatives  (Linear  Taylor’s  expansion). 


3.7.1  ERP  IMPUT-OUTPUT  DATA 

The  Input  system  and  control  data  Include: 

(1)  Ooeratlna  Mode  Indicators 
CASETYP 

APMFLAG 

OTPFLAG 

(2)  Prediction  Points 
P^.  AP.  Pf 

Mumber  of  variant  element  sets  ■  k 


3-78 


SIMULAIION  ERROR  ANALYSIS  SYSTEM 


PRtXaUttl  DOCPMENT  . 


(3) 

(4) 


Reference  Element  Set 

sf 

o’  xN  ’  vN  ’  X  y  45 
o  •'  O  O  •'o  o 

Variant  Element  Sets 

DEBLOC  (Aaj  ,  Ae^ ,  Aij  ,An  j  ,  AdO^ , 

<"oJ’  “xN  /  V  /  ’^x  , 
Oj  '  oj  oj 


^ (EPOCH), 


AM.  ,,  AC 
oj 

J  h  .  h 


C 

O 


Oj> 


The  reference  element  set,  delta  element  sets,  and  variant 
element  sets  are  available  ftom  stored  data  blocks,  EBLOC,  DBBIOC,and 
VEBLOC,  respectively.  The  remaining  Input  data  enter  the  routine  via 
the  error  prediction  card. 

The  output  data  are  contained  In  DPVBLOC  and  consist  of  either 
delta  position  and  velocity  In  equatorial  coordinates 

Ax,  Ay,  Az,  Ax,  A  y,  A  z,  I  Ar  I  ,  I  Af  I 
or  orbital  coordinates 

D  ,  D  ,  D  ,  D  ,  D  ,  D  ,  |Ar  I ,  lAf  I 
u’  V  w’  u’  V  < 


3.7.2  ERP  FORMULATION 

2 

(1.)  Compute  e^  : 


+ 


(3.7.1) 


(2)  Compute  (u  and 
o 


n  : 

o 


“  tan 


.1 


)0 


xN 


(3.7.2) 


*In  expressions  using  the  arc tan,  the  quadrant  Is  determined  by  In¬ 
spection  of  the  numerator  and  denominator. 
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fl  ■  tan’^ 
o  -h 


(3).  Compute 


n  ■  tan’^  -r® 
o  •«_ . 


(4)  Compute  t^, At,  t^  from  P^:  (N  la  stored 


t.--  "  time  of  laat  observation 
Odf 


^1  ■  *^08?  ■  ^o 


2  2  2 
h  +h  ^+h  ' 
X  y  z 
0^0  o 


a  ■ 


At 


Po^  •  %  > 


7ra 


3/2 


2  Tra, 


3/2 


•^f  "  "TTjr 


■*■  ^OBF  ■  *^0 


(5)  Initial  Quadratic  Coefficients  for  U  (a, 
"o  "  .  3/2 


(3.7.3) 

(3.7.4) 

In  t^) 

(3.7.5) 

(3.7.6) 

(3.7.7) 

(3.7.8) 

(3.7.9) 

b,  and  c): 

(3.7.10) 
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(a)  If  XJGRCF  ■  b  (no  perturbations),  then 
a  •  0 

b  ■  n_  . 


c  •  L  -  P,  - 


ft 


o  ‘1  |h  1  o 
z 

o 


(b)  If  XJGRCF  ^  0  (perturbations) >  then 


a 


360n 

_ 2_a 

2 

TT 


Ja 

j'  •  *y]i  — ^ 
,Po 


7/2 


'  r  bl  'i 

a  ■  c"(n  +  k  J*  — a  4  e  (1-e  )  f 


b  -  n  +  k  J 
o  e 


h  2 

o  P  4  0 

0 


3 


^  ^  ■  ir 


ft 


(6)  Initial  Quadratic  Coefficients  for  M  (a,  b,  and  c): 
(a)  If  XJGRCF  «  0  (no  perturbations),  then 
a  ■  0 
b  "  n 
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C"L  -P.  “(D  - 

o  1  o 


(b)  If  XJGRCF  1^0 (perturbations),  then 


360  n  ‘  c 


r'  .  ^ 


■  [«o  *  «-.„)  1^1+2  Ly  -  5  -^)] 


"•“o-  V<2-*«*) 


C  •  L  -  P.  -  (D 
o  1  o 


(7)  Solve  quadratic  equation  for  t  : 

n 

(a)  If  s  6  then 


^-’21 


(3.7.11) 


(b)  If  ^  ^6^,  then 


D 


(3.7.12) 
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;nt 


(c)  If  (1  -  0  then 

b 

t  - 

n  2a  (3.7.13) 

Print :  NEGATIVE  RADICAND  EQUALS  -  .rrr  ±  ee 
Continue  proceielng 


(8)  Compute  Partial  Derivative  Matrix  [  p^^ ] ,  where 


“^ll 


"12 


"13 


"14 


15 


"21 


*22 


23 

**24 

^5 

**26 


‘*31 


"35 


m 


"xN 


yN 

9. 

_a 

a 


he  •  0 


xN 


yN 

7 

_a 

a 


r  cos  1 


P  <■  P 

F32  ^33 


r  sin  u 


P34-O 
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-r  sin  i  cos  u 


R  -  V  V 
m  m 


R  «  -  V  V  „ 
xN  xN 


R  „  -  V  V  „ 
yN  yN 

(R  -  V  V  )  /a 

a  a 


"tv  cos  1 
V  +  -  V 


m 

r 

m 

V  „ 

+  t 

V  „ 

xN 

r 

xN 

V 

+  i 

V  .. 

yN 

r 

yN 

r 

v„)  /« 

a 

0 

f  cos  1 


•■ea  ■  I’ss  ■  ■’64  ■  0 


r  V  cos  u  +  r  sin  u 

(r  V  sin  u  -  f  cos  u)  sin  1 


The  auxiliary  quantities  in  the  elements  are  obtained 
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R  -  -  e  sin  E 

m  r 


R  -  r-  7(U-U)R 
a  2  o  m 


R  „  ■  —  a  „  -  COB  (E  +cd) 

xN  r  xM  \  vx;  / 


m 


--  r* 

r 

■4[, 

-  vi:? 


V  "  "7  -yN  '  > 


A  z  on 


xN 


r 

-  —  (1  +  J  )  ain  (E  +0)  ) 


(3.7.14) 

(3.7.15) 

(3.7.16) 

(3.7.17) 

(3.7.18) 

(3.7.19) 

(3.7.20) 


+  a^  e  8ln  E 


1  .vr:7  J 


(1+ 


Vl-e^ 


Vl-e^  (1+Vl-e^),^ 


e  cos  E 


r2 

'yN  "  r 


V  „  •  —  I  -  (1  +  -)  cos  (E  +00) 
a 


(3.7.21) 


+  a  „ e  sin 
yH 


ei-Ii 


^  \r,  2 

+  y  l-e 


Vl  -  (1  +  V  1-e^ 


)  e  cos  E 


) 


- 7^  1 

1  +Vl-e2  J 


R  (e  cos  E  -  e^)  / 

tn  ' 


(3.7.22) 
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R  (U-U)R  (3.7.23) 

a  2  2  o  m 

R^jj  |sin  (E  +  o))  -  e  sin  E  -  a^^jj  /r^  (3.7.24) 

RyN  (E  +ai)  -  a^j^e  sin  E  r  a^j  /r^  (3.7.25) 

V  Vl-e^  e  sin  E  /r^  (3.7.26) 

m 

V  -  -  i  r  V  -  I  <U  -  U  )  V  (3.7.27) 

a  z  Z  on 

-  r  2  I 

V  „  Vl-e^  cos  (E-Ko)  -  a„  (1+ M  /r^  (3.7.28) 

xN  ^  xN  ap 

p  2 

Vyj,  VT-e^  sin  (Eto)  -  a^j,  (1+—)  /r^  (3.7.29) 

The  parameters  which  are  used  In  the  above  expressions  are  available  from 
the  MNREF  subroutine. 

(9)  Compute  U,  V,  W  errors  using  Partial  Matrix: 
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(10)  Convert  U,  V,  W  errors  to  x,  y,  z  errors: 


ax-D  U  +D  V  +D  W 

“  U  X  V  X  W  X 


Ay  -  D  U  +D  V  +D  W 
uy  vy  wy 


Az-D  U  +D  V  +  D  W 

U  Z  V  z  w  z 

Ax-D  U  +D  V  +D  W 

U  X  V  X  W  X 


Ay-D  U  +D  V  +  D  W 
•'  u  y  V  y  w  y 


Az-D  U  +D  V  +  D  W 

U  Z  V  z  w  z 


(11)  Convert  x,  y,  z  errors  to  U,  V,  W  errors: 


D  -Ax  U  +  Ay  U  +Az  U 
u  x  y  z 

D  -Ax  V  +  Ay  V  +A  z  V 
V  X  y  z 


D  -Ax  W  +  Ay  W  +  Az  W 
w  X  ^  y  z 


D  -  -  Ax  U  +  Ay  U  +  A£  U 
u  X  ^  y  z 


D  -Ax  V  +  Ay  V  +Az  V 
V  X  y  z 


D  -  Ax  W  +  A^  W  +  Az  W 
w  X  y  z 


(12)  Compute  |Ar|  ,  |Ar|  : 

|Ar|  -  [ax^  +  Ay^  +  Az^] 

|Ai,|  ■  [ax^  +  Ay^  +  Az^  1 


1/2 

11/2 


(3.7.31) 


(3.7.32) 


(3.7.33) 

(3.7.34) 
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or 


|Ar|- 

|Ar|- 


1/2 

1/2 


(3.7.35) 

(3.7.36) 


Those  equations  are  used  for  which  the  data  are  available. 
3.7.3  ERP  PROGRAM  SPECIFICATION  SUMMARY 
(a)  System  Input 


EBLOC 

DPVFLG 

LDPBLOC 

DEBLOC 

CAPPI 

PERT 

VEBLOC 

DELCAPP 

LDEBLOC 

CASETYP 

CAPPF 

LVEBLOC 

OTPFLG 

CCARD 

VECOUNT 

APMFLG 

ERPOPT 

LOCOBS 

Associated 

Input  Cards 

ELEMENT 
ERPRED  CONTROL 
(c)  System  Output 
DPVBLOC 
EPCOUNT 
CCARD 
STPSTB 
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[ 

[ 

! 


(d)  System  Conmon  Subroutines 


I 

1 

ARCTAN 

GLOP 

PAGECON 

INITEIM 

DELGET 

lELMGET 

PANT 

SETJC 

1 

EUIGET 

INITDEL 

EXEND 

SXSRCH 

EUNPCK 

MNREP 

NXJOB 

CARDER 

(e)  Phllco  Subroutines 
FSQRT 

3.7.4  ERP  SCHE24ATIC  COIPUTATIONAL  SEQUENCE 

The  Error  Prediction  diagram  showing  the  program  logic  Is 
presented  In  Figure  3-16.  A  glossary  of  the  main  Internal  subroutines  used 
In  the  diagram  Is  given  below  for  reference: 

MATRIX  Computes  the  coefficients  of  the  matrix  (Step  8) . 

XMATRX  Solves  Equation  3.7.30. 

DU2DX  Converts  D  ,  D  ,  D  errors  to  Ax,  Ay,  Az  using 
Equations  3.7.31. 

SAVDE  Computes  |^|  and  |  using  Equations  3.7.33, 

3.7.34  or  Equations  3.7.35,  3.7.36,  storing  In 
DPVBLOC 

qUAOEQ  Computes  t  using  Equations  3.7.11,  3.7.12,  3.7.13. 
n 

CASE2  Computes  t^,  At,  t^  (Equations  3.7.5,  3.7.8,  3.7.9). 

QUADCO  Computes  a,  b,  c  for  Equations  3.7.11,  3.7.12,  3.7.13. 

2 

INITl  Computes  e^  ,  a^,  p^ 

COMOEL  Computes  Aa/a,  Au  ,  Aa  Aa 

o  xN  yN 

REPSUB  Uses  MNREP  to  compute  Ax,  Ay,  Az,  Ax,  Ay,  Az  at  time  t. 

The  diagram  In  the  upper  portion  of  Figure  3-16  Illustrates  the 
complete  looping  sequence  of  operations  between  ERP  and  ERPDIST.  This 
represents  the  ERPRED  function  described  above. 
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3.8  PREDICTION  DISTRIBUTION  -  ERPDIST 

The  Prediction  Distribution  Program  Unit,  ERPDIST,  performs  the 
statistical  processing  of  the  delta  position  and  velocity  data  generated 
by  the  ERP  Program  Unit.  The  delta  position  and  velocity  data  generated 
by  ERP  are  the  differences  in  the  predicted  position  and  velocity  vectors 
produced  by  the  variant  element  sets  and  the  reference  element  set.  These 
differences  constitute  the  sets  of  position  and  velocity  vector  errors 
arising  from  the  simulated  observational  inaccuracies. 

The  purpose  of  the  ERPDIST  Unit  is  to  compute  at  each  prediction 
point  a  statistic  of  each  coordinate  of  position  and  velocity.  The  statis¬ 
tic  of  the  errors  include  the  maximum,  minimum,  mean,  standard  deviation, 
and  at  option  a  frequency  distribution  of  the  errors.  Also,  for  all  pre¬ 
diction  points  in  a  quadrant  (beginning  at  the  last  observation),  the 
statistic  of  each  coordinate  at  each  prediction  point  will  be  treated  as 
a  set  or  error  quantities,  and  for  each  of  these  corresponding  error  quan¬ 
tities,  a  statistic  will  be  computed  for  that  quadrant  of  the  orbit.  The 
process  is  repeated  for  the  remaining  quadrants. 


3.8.1  ERPDIST  INPUT-OUTPUT  DATA 


The  statistical  processing  of  position  and  velocity  errors  re¬ 
quire  the  following  input  data; 


(1)  DPVBLOC,  the  k  sets  of  delta  position  and  velocity  error 
data; 


Ax  or  D 

u 

Ay  or  D 

V 

Az  or  D 

w 

|Ar| 


Ax  or  D 

u 

Ay  or  D 

J  V 

Az  or  D 

w 

I  Ail 


These  error  quantities  are  output  from  the  Error 
Prediction  Program  Unit  and  are  either  in  equatorial 
or  orbit  plane  coordinates  respectively. 

(2)  ERPNS  The  number  of  samples  of  a  position-velocity 
type  error  used  to  compute  the  mean  and 
standard  deviation. 
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(3) 

QUNS 

The  number  of  samples  of  the  error  quantity  used 
to  compute  the  mean  and  standard  deviation  in 
the  quandrant  and  analysis. 

(4) 

ERPI 

The  number  of  cells  in  the  position-velocity 
coordinate  frequency  distributions. 

(5) 

ERPSl 

The  number  of  standard  deviations  below  the 
mean  at  the  first  cell  of  the  position-velocity 
coordinate  frequency  distribution. 

(6) 

ERPS2 

The  number  of  standard  deviations  above  the 
mean  at  the  last  cell  of  the  position-velocity 
coordinate  frequency  distribution. 

(7) 

OTPFLAG 

Control  parameter  from  ERP  defining  either 
equatorial  or  orbit  plane  coordinates  in 

DPVBLOC . 

(8) 

CASETYP 

Control  parameter  from  ERP  indicating  the 
option  to  perform  or  exclude  quadrant  analysis. 

(9) 

CAPPI 

Number  of  prediction  points  per  quadrant  of  the 
orbit . 

(10) 

OPOUTI 

Control  parameter  indicating  option  to  include  or 
exclude  frequency  distribution  of  position  and 
velocity  errors  in  printed  output. 

(11) 

0P0UT2 

Control  parameter  indicating  option  to  include 
or  exclude  punch  card  output. 

(12) 

ERPDOPT 

Control  parameter  indicating  whether  distribu¬ 
tions  are  desired. 

Items  other  than  OPVBLOC  are  input  via  the  ERPRED  Control 
Card. 

The  output  from  ERPDIST  routine  consists  of  the  following 
data: 

(a)  Identification  of  error  quantity 

(b)  Mean  error 
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(c)  Standard  deviation  of  error 

(d)  Minimum  error 

(e)  Maximum  error 

(f)  Time  since  epoch  in  minutes 

Additional  output  data,  optional  to  the  ERPDIST 
routine,  Includes: 

(g)  Frequency  distribution  of  errors 

(h)  Punch  cards  containing  Items  (a)  through  (f)  above 
3.8.2  ERPDIST  FORMUUTION 

The  presentation  of  the  computations  involved  in  the  ERPDIST 
Unit  is  given  under  Common  Subroutine,  STOB. 


ERPDIST  program 

SPECIFICATION 

SUMMARY 

System  Inout 

DPVBLOC 

ERPI 

K 

ERPSl 

OTPFLG 

CASETYP 

ERFS2 

QUNS 

QUI 

ERPNS 

CAPPI 

OPOUTl 

Associated  Input  Cards 


ERFRED  Control 


0P0UT2 

ERPDOPT 


c .  System  Output 

For  each  of  the  position  velocity  errors  (either  equatorial  or 
orbit  coordinates),  the  following  output  is  produced: 

MU  MAX 

SIGMA  Time  since  epoch 

MIN  Frequency  Dist 
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ERPDIST 


SET  UP  CELLS 
FOR  ERROR 
RECOVERY 


SET  UP  UVW 
LABELS  AND 
DPVBLOC 
ADDRESSES 


SET  DP  DPVBLOC 
RETRIEVAL 
INTERVAL  &  NO. 
OF  ERROR 
QUANTITIES  TO 
PROCESS  (-  8) 


SET  UP  NO.  OF 
SETS  OF  ERROR 
QUANTITIES 


MOVE  PARAM 
TO  WORKING 
(SI,  S2,  I 


SET  UP  XYZ 
LABELS  & 
DPVBLOC 
ADDRESS 


SET  UP  UNITS 

EPCOUNT  +  1 

FOR  OUTPUT 

EPCOUNT 

CASETYP 

-  2 


CAPPI  ; 
EPCOUNT 


TEST 

OTPFLAG 


FIGURE  3-17 


SET  UP  NO.  OT 
SETS  OF  ERROR 
QUANTITIES 


move  parameters 

TO  WORKING  TABLE 
(SI.  S2,  I) 


MOVE  NAME  OF 
OUTPUT  ROUTINE 
TO  STOB 
(SPOUT  2) 


IF  NS  >TN, 
REPUCE  WITH 
TN 


SET  UP  STPBLOC 
RETRIEVAL 
INTERVAL  AMD 
NO.  OF  ERROR 
QUANTITIES  TO 


FIGURE  3-17.  ERPDIST 
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d .  System  Common  Subroutines 
STOB  SPOUT2  PANT 

e.  Phllco  Subroutines 
(None) 

3.8.4  ERPDIST  SCHEMATIC  COMPUTATIONAL  SEQUENCE 

Figure  3-17  presents  the  flow  diagram  for  the  ERPDIST  unit. 
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SECTION  4 

EXECUTIVE  PROGRAM 


The  Executive  Program  (EP)  has  two  main  functions  to  fulfill 
In  the  system:  the  first,  la  that  of  processing  all  Input  data  and  con¬ 
verting  them  to  convenient  formats  for  Internal  use;  the  second,  Is  that 
of  providing  linkage  between  the  component  programs  In  the  system.  In 
order  to  minimize  the  size  and  complexity  of  the  SEA  Executive  Program, 
SYS  (Phllco  2000  Operating  System)  service  routines  and  subroutines  were 
used  whenever  possible. 


4.1  PROGRAM  DESIGN 

The  SEA  EP  Is  divided  Into  three  main  functional  units,  one 
of  which  contains  two  program  units.  These  three  units  accomplish  the 
tasks  of  Input  processing  and  Internal  program  linkage  as  follows; 

(1)  General  Executive  Program  (EXEC) 

EXEC  Is  the  main  executive  unit  which  does  the 
basic  Input  processing  and  linkage. 

(2)  Special  Executive  Programs  (INTERFN  and  CONTROLN) 

The  special  executive  logic  necessary  to  control 
a  sequence  number  "N"  Is  contained  In  CONTROLN 
and  INTERFN.  CONTROLN  contains  Input  tables,  pro¬ 
gram  unit  table,  etc.,  and  INTERFN  contains  the 
executive  programming  that  Is  actually  performed 
as  opposed  to  control  cells  and  tables.  This 
additional  executive  control  Is  necessary  to  Im¬ 
plement  the  special  logic  required  for  the  specific 
sequence  operations. 
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(3)  Subroutines  (SUBS) 

SUBS  contains  most  of  the  common  subroutines 
used  by  the  SEA  program  units.  SUBS  contains 
card  reading  routines,  retrieval  routines, 
computational  subroutines,  and  other  miscel¬ 
laneous  subroutines.  A  list  of  all  the  sub¬ 
routines  Is  given  In  the  System  Subroutine 
Section. 

These  four  program  units  (EXEC,  CONTROLN,  INTERFN,  and  SUBS)  are  necessary 
In  all  SEA  sequences.  Therefore,  they  are  loaded  along  with  the  specific 
program  units  required  for  each  sequence. 


4.2  DESCRIPTION  OF  GENERAL  EXECUTIVE  LOGIC 

The  flow  diagram  of  the  general  logic  of  the  Executive  Program 
Is  presented  In  Figures  4-1  through  4-4.  In  order  to  associate  the  de¬ 
scription  of  the  executive  logic  with  the  schematic  representation,  various 
points  In  the  flow  diagram  are  designated  numerically  (n)  and  are  refer¬ 
enced  In  this  manner  In  the  text.  After  SYS  has  brought  an  SEA  sequence 
Into  core  memory,  control  Is  transferred  to  the  EP  at  SEASTRT  (1).  This 
routine  does  all  the  Initialization  of  the  EP,  such  as  clearing  switches 
and  Indicators,  setting  up  error  recoveries.  Initializing  the  output  rou¬ 
tine,  and  outputlng  headings.  After  accomplishing  Its  tasks,  SEASTRT 
transfers  control  to  AAA  (the  central  Input  processor).  AAA  retrieves  an 
Input  card  using  INXICON  (2)  and  examines  columns  17  to  24  and  80  of  each 
Input  card  to  determine  Its  function  (3),  (4),  (5).  If  It  Is  a  legal  SEA 
card,  SYS  card,  or  data  card,  AAA  Jumps  to  the  correct  processing  routine 
or  subroutine  (6),  (7),  (8).  If  the  card  Is  not  a  legal  type,  AAA  rejects 
the  card  with  a  diagnostic  comment  (9).  Most  of  the  card  processing  rou¬ 
tines  return  to  AAA.  CONINT  Is  the  control  card  process  (18)  and  always 
returns  to  AAA.  Routines  that  do r.ot  always  return  to  AAA  are  SYSRET,  JOB, 
SEACARD  and  ENDDATA. 

A  "SYS" card  or  a  "JOB"  card  will  signal  SEA  to  return  to  SYS. 
SYSRET  and  JOB  (20),  (26)  return  control  to  SYS  after  It  has  been  re¬ 
stored  (24),  (25).  A  case  ("SEA")  card  causes  the  EP  to  Initialize  for 
a  case.  This  Is  done  In  SEACARD  (11).  SEACARD  can  transfer  control 
to  NXJOB  If  the  case  card  Is  Illegal  (17)  or  to  ENDDATA  If  two  case  cards 
are  found  with  no  ENDDATA  card  separating  them  (1^),  otherwise,  SEACARD 
returns  to  AAA  (14),  (15).  An  "ENDDATA"  card  signals  SEA  to  run  the  case 
just  Input.  The  ENDDATA  routine  checks  the  Input  received  against  the  re¬ 
quired  Input  to  run  (Boxes  12  and  13).  ENDDATA  never  returns  to  AAA.  If 
the  case  had  any  serious  Input  errors,  ENDDATA  will  transfer  control  to 
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SEASTRT 


(I) 

SAVE  CONTENTS  OF  THE  SYS  ENTRY  VECTORS 
FOR  CONTROL-LINE -ERROR  PROCESSING,  SYS 
INITIALIZATION,  AND  END  OF  JOB  PROCESSING. 
SET  THE  ENTRY  VECTORS  TO  SAVE  THE  JA  IN 
ENTRY JA  AND  TRANSFER  CONTROL  TO  SYSCONR, 
SYSINT  AND  SYS JOB  RESPECTIVELY, 

INITULIZE  THE  OUTPUT  ROUTINE  (PANT)  TO 
OUTPUT  ONTO  TAPE  5,  EJECT  A  PAGE  ON  HARD 
COPY  OUTPUT 

SET  THE  SYS  MASTER  CONTROL  SWITCH,  CONBITS, 
TO  INHIBIT  CONTROL  CARD  PROCESSING  BY 
INXXCON. 

SET  CELLS  0  AND  3  TO  RETURN  TO  SEAERR 
IN  THE  CASE  OF  EXPONENT  OVERFLOW  OR 
SUBROUTINE  ERROR. 

READ  THE  ACCOUNTING  CLOCK  AND  STORE  THE 
DATE  AND  TIME  IN  OUTPUT  LINE.  OUTPUT 
THE  LINE  AS  COSINE5B  PAGE  HEADING. 

TYPE  " COSINE 5B"  AND  THE  SEA  NUMBER 
ON  THE  FLEXOWRITER. 

INITIALIZE  TABLE  LOOKUP  ON  DATA  CARDS  AND 
CONTROL  CARDS, 
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JOBSRCH  (19)  initiating  a  search  for  the  next  case  or  Job.  If  the  case 
did  not  have  serious  input  errors,  EMDDATA  will  exit  to  EXEND  (10)  and 
initiate  the  running  of  the  case.  “PRINT"  and  “FLOAT"  cards  will  execute 
the  PRINT  or  FLOAT  subroutines  described  in  the  System  Subroutine 
Specifications. 

The  central  routine  used  in  sequence  control  is  EXEND  (30). 

EXEND  increments  the  program  number  (PROGNO)  and  transfers  control  to  the 
next  program  in  sequence,  using  PROGTBL.  Normally,  programs  return  to 
EXEND;  however,  if  a  nonrecoverable  error  occurs  during  a  case  run,  the 
program  unit  puts  out  a  diagnostic  comsent  and  exits  to  NXJOB  (27).  After 
putting  out  a  comment  indicating  that  the  case  was  terminated,  NXJOB 
transfers  control  to  JOBSRCH  (28). 

Normal  termination  of  a  case  is  executed  by  a  Jump  to  SEAEOJ 
(29).  This  routine  is  the  last  entry  in  PROGTBL  and  the  EXEND  logic  will 
result  in  a  transfer  of  control  to  SEAEOJ  after  completion  of  the  last 
program  unit.  SEAEOJ  puts  out  a  comment  indicating  that  the  case  has  ended 
and  transfers  control  to  JOBSRCH. 

JOBSRCH  (28)  searches  the  input  until  a  SYS,  JOB,  or  case  card 
la  found,  in  which  case  it  transfers  control  to  SYSRET  (20),  JOB  (26),  or 
AAA  (2),  respectively. 

The  SEA  system  will  retain  control  until  a  SYS  or  JOB  card  is 

intercepted,  or  until  the  operator  executes  a  Jump  to  cell  1,  4,  or  5  from 

the  console  in  an  attempt  to  initiallae  SYS  or  run  the  next  Job.  In  any 
of  these  conditions,  the  EP  will  restore  the  SYS  entry  vectors,  reset  the 
SYS  master  control  switch  CONBITS,  and  exit  to  the  right  half  of  cell  1 

(23),  4  (24),  or  5  (25).  The  exit  taken  depends  on  the  next  SYS  function 

desired. 


4.3  DESCRIPTION  OF  SPECIAL  EXECUTIVE  LOGIC 

Situations  arise  in  any  system  that  require  special  logic  and 
handling.  Rather  than  incoporate  these  in  a  general  EP,  the  SEA  system 
Isolates  these  “special  executive"  routines  in  the  program  unit  INTERFN. 
These  perform  the  logic  needed  during  a  case  run  to  accomplish  special 
tasks  required,  such  as  performing  a  Monte  Carlo-’Differential  Correction 
loop.  These  are  written  as  small  sequence  programs  and  have  entries  in 
PROGTBL.  They  therefore  return  to  EXEND.  At  present,  the  special  execu¬ 
tive  routines  in  the  SEA  system  and  their  functions  are  as  follows : 

EXECIAA  Outputs  nominal  elements.  Restricts  sensor 
data  to  one  sensor  in  Type  C  and  D  elements. 

EXECIAA  is  the  first  entry  in  PROGTBL. 
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EXECIB 

EXECIC 


4.4  DESCRIPTION  OF 
EXEND 
(EXEC) 


NXJOB  or 
NXTJOB 

(EXEC) 


JOBSRCH 

(EXEC) 


Initializes  Differential  Correction  and 
Monte  Carlo. 

Initializes  MOCARO  -  SGFDC  loop.  EXECIB 
Is  between  OBSIM  and  MOCARO  In  the  PROGTBL. 

Increments  counter  of  MOCARO  -  SGFDC  loops 
(KCOUNT)  and  compares  It  to  the  number  of 
runs  requested  on  the  case  Input  (K) .  If 
more  loops  are  required,  EXECIC  decrements 
FROGNO  by  3  and  exits  to  EXEND.,  If  not, 
EXECIC  outputs  the  final  random  number  and 
number  of  unsuccessful  corrections  and  then 
exits  to  EXEND  without  altering  FROGNO. 
EXECIC  Is  between  SGFDC  and  DCDIST  In  the 
PROGTBL. 


EXECUTIVE  ROUTINES  AND  SUBROUTINES 

Normal  end  of  program  return. 

If  a  sequence  program  Is  executed  in  a  normal 
fashion,  l.e.,  no  fatal  errors  detected,  the 
program  returns  to  EXEND  signalling  the  EP  to 
transfer  control  to  the  next  program  In  sequence. 
EXEND  Increments  the  left  address  of  FROGNO  by 
1  and  adds  it  to  the  address  of  PROGTBL-1.  This 
Is  the  location  of  a  jump  to  the  next  program  in 
the  sequence. 

Error  end  of  sequence  exit. 


If  a  sequence  program  encounters  a  fatal  error 
when  attempting  to  run  a  case,  control  is  re¬ 
turned  to  NXJOB,  following  a  diagnostic  comment. 
NXJOB  indicates  that  the  case  is  terminated  both 
on  the  flexo  and  on  hard  copy.  It  then  transfers 
control  to  JOBSRCH  to  begin  the  next  case. 

Job  or  case  search  entrance. 

JOBSRCH  processes  the  input  data  on  Tape  8,  search¬ 
ing  for  one  of  the  following  three  cards: 

Col  17-24  =  SEA  -  case  card 
=  SYS  -  SYS  card 
=  JOB  -  JOB  card 
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JOB 

(EXEC) 

SYSJOB 

(EXEC) 

SYSRET 

(EXEC) 

SYSINT 

(EXEC) 

SEASTRT 

(EXEC) 


If  a  case  card  la  found,  JOBSRCH  repositions 
the  Input  to  the  case  card,  resets  cells  0  and  3 
for  the  EP  error  processing,  and  transfers  con¬ 
trol  to  AAA.  If  a  SYS  card  Is  found,  JOBSRCH 
transfers  control  to  SYSRET.  If  a  JOB  card  Is 
found,  JOBSRCH  transfers  control  to  JOB. 

JOB  card  processing. 

JOB  types  a  comment  on  the  flexo  indicating  that 
a  JOB  card  was  Intercepted,  repositions  the  Input 
retrieval  to  the  JOB  card  and  exits  to  SYSJOB. 

SYS  job  processing. 

SYSJOB  resets  CONBITS,  empties  the  output  buffers 
In  PANT,  restores  the  SYS  entry  vectors,  and  exits 
to  M/4  right. 

Return  control  to  SYS 

SYSRET  resets  CONBITS,  empties  the  output  buffers 
In  PANT,  restores  the  SYS  entry  vectors,  and  exits 
to  M/5  right. 

Initialize  SYS 

SYSINT  resets  CONBITS,  empties  the  output  buffers 
In  PANT,  restores  the  SYS  entry  vectors,  and  exits 
to  M/1  right. 

Initialization  of  SEA  exec. 

SEASTRT  does  all  the  Initialization  required  of 
the  SEA  executive  routine.  It  saves  the  contents 
of  the  SYS  entry  vectors  ISYSIN,  lENJOB,  and  XCONER 
and  changes  them  to  set  the  ENTRYJA  and  transfer 
control  to  SYSINT,  SYSJOB  and  SEACONR,  respectively; 
initializes  PANT  to  output  onto  Tape  5,  ejects  a 
page,  and  outputs  COSINE  5B  headings  with  the  date 
and  time;  sets  CONBITS  for  SEA  usage;  sets  cells 
0  and  3  to  return  to  SEAERR;  sets  the  size  of  the 
data  card  cable  and  control  line  ID  cable  -  0  (to 
prevent  table  lookup  from  matching  until  after  a 
case  card);  blanks  the  SEA  and  case  ID's;  and  then 
exits  to  AAA. 
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SEACONR 

(EXEC) 

SEAERR 

(EXEC) 

AAA 

(EXEC) 


Control  line  error  processing. 

If  an  error  occurs  on  SYS  control  lines,  SEACONR 
prints  an  error  conment  on  hard  copy,  and  types 
an  error  comment  If  Input  is  from  the  flexo.  In 
either  case,  control  Is  returned  to  AAA. 

Exponent  overflow  or  subroutine  error  processing. 

SEAERR  outputs  an  error  comment  and  then  transfers 
control  to  NXJOB. 

Central  Executive  Input  processor 

AAA  uses  INXTCON  to  retrieve  the  next  input  card, 
and  uses  STRIP  to  extract  the  command  field 
(Col  17-24) .  AAA  uses  table  AlA  to  determine  if 
the  card  is  an  SEA  card.  If  equality  is  found 
with  one  of  the  SEA  card  functions,  AAA  Jumps  to 
the  corresponding  entry  in  table  AIB  to  convert 
the  card.  Subroutines  chat  process  SEA  cards  are 
SEACARD  (Case  card),  ENDDATA  (Enddata  card),  PRINT 
(Print  card),  FLOAT  (Float  card),  CONINT  (Control 
card),  JOB  (Job  card),  and  SYSRET  (SYS  card).  Sub¬ 
routines  PRINT,  FLOAT,  and  CONINT  will  return  to 
AAA;  JOB  and  SYSRET  restore  SYS  and  return  control 
to  SYS;  SEACARD  normally  returns  control  to  AAA, 
however  can  go  to  ENDDATA  or  NXJOB;  and  ENDDATA 
always  returns  control  to  EXEND  or  JOBSRCH. 

If  the  card  is  not  an  SEA  card,  then  AAA  uses 
TABLEl  to  determine  if  the  card  is  a  legal  SYS 
card.  If  it  is,  control  is  transferred  to  BLKIN 
with  a  parameter  of  8  (Block  8  of  the  SYS  Tape 
desired).  BLKIN  will  locate  Block  8  which  will 
trigger  the  SYS  card  processing.  After  the  card 
has  been  processed,  SYS  will  return  to  INXTCON 
which  will  retrieve  the  next  card,  and  return  to 
ARET  (in  AAA).  If  the  input  card  is  not  an  SEA 
or  SYS  card,  AAA  checks  to  see  if  a  Case  card  has 
been  found.  If  not,  data  cards  are  not  yet  allowed, 
and  the  card  will  be  rejected  with  a  diagnostic 
comment.  If  a  Case  card  has  been  found,  AAA  will 
compare  Col  80  of  the  input  card  to  legal  data 
card  types  as  given  in  the  table  specified  in 
CARDTBL  left  address  If  equality  is  found,  AAA 
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SEACARD 

(EXEC) 


ENDDATA 

(EXEC) 


CONINT 

(EXEC) 


Jumps  to  the  corresponding  entry  in  the  table 
specified  in  CAROTBL  right  address,  which  is  a 
subroutine  to  process  the  particular  data  card. 

After  the  card  has  been  processed,  control  is 
returned  to  AAA.  If  the  input  card  is  none  of 
the  above  legal  inputs,  it  is  rejected  with  a 
comment  indicating  that  an  error  exists  in 
Col  17-24  or  80.  Control  is  then  returned  to 
AAA. 

Case  Card  Processor 

SEACARD  processes  a  Case  card  (SEA  in  Col  17-24). 

It  checks  the  SEA  number  against  the  sequence 
number  held  internally  and  sets  up  the  SEA  ID  and 
Case  ID  on  the  page  headings.  It  also  clears 
all  switches  and  indicators,  and  initializes  the 
input  processing  including  table  lookups  on  data 
cards  and  control  card  ID's.  SEACARD  normally 
exits  to  AAA,  however,  with  various  error  condi¬ 
tions,  it  can  exit  to  ENDDATA  (previous  Case  card 
encountered  with  no  ENDDATA  card  on  case) ,  or 
NXJOB  (SEA  ID  disagreement) . 

ENDDATA  Card  Processor 

ENDDATA  processes  an  ENDDATA  card.  This  primarily 
consists  of  checking  the  data  successfully  processed 
in  the  case  and  comparing  it  to  the  minimal  data  re¬ 
quirements  for  the  sequence  being  run.  ENDDATA  out¬ 
puts  error  diagnostics  indicating  which  types  of 
data  cards  were  not  found  and  which  types  of  control 
cards  were  not  found.  Deficiencies  in  either  type 
of  card  will  cause  ENDDATA  to  Inhibit  the  running  of 
the  case.  If  all  data  required  was  found,  ENDDATA 
checks  the  no-run  switch  (bitO-EXSWTCH)  for  an  inhibit 
set  during  the  input  processing.  If  no  run  is  set, 
ENDDATA  will  not  run  the  case,  but  transfers  control 
to  JOBSRCH.  If  no  errors  were  found  and  the  case  is 
to  be  run,  ENDDATA  transfers  control  to  EXEND. 

Control  Card  Processor 

CONINT  processes  CONTROL  (CONTROL  in  Col  17-24)  cards. 
Using  the  table  of  N  entries  (N  specified  by  CONFRO 
right  address)  beginning  at  a  location  TABLE  (speci¬ 
fied  by  CONPRO  left  address),  CONINT  does  a  table 
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lookup  on  the  CONTROL  card,  ID  given  In  Col  9-16. 

If  equality  la  found,  CONINT  Jumps  to  N  plus  the  core 
location  In  TABLE  equal  to  the  ID.  This  must  be 
a  Junp  to  a  subroutine  to  process  the  CONTROL  card, 
and  a  jump  to  AAA.  CONINT  therefore  returns  control 
to  AAA. 

The  subroutines  used  by  CONINT  must  set  a  bit  in  cell 
CCARO  after  a  successful  card  read  is  executed.  This 
signals  ENDDATA  that  the  specific  control  card  was 
found  and  read  without  any  errors.  For  bit  assign¬ 
ments,  see  cell  CCARD. 

SEAEOJ  Sequence  Termination 

(EXEC)  SEAEOJ  terminates  an  SEA  sequence.  After  printing 

and  typing  "END  OF  CASE"  SEAEOJ  empties  the  output 
buffers  and  exits  to  JOBSRCH  for  the  next  case. 

INPTINT  Initialization  Subroutine 

(INTERFN)  When  the  EXEC  encounters  a  Case  card,  it  will  go  to 
the  subroutine  INPTINT.  This  should  do  all  necessary 
initialization  of  the  input  routines  for  the  sequence, 
such  as  setting  up  strobes  and  clearing  counters  for 
various  data  blocks  (l.e.,  EBLOC,  OBLOC,  etc.). 


4.5  DESCRIPTION  OF  EXECUTIVE  CONTROL  SWITCHES  AND  TABLES 

EXSWTCH  bit  0  No-run  switch 

(EXEC)  If  =0,  no  fatal  input  errors 

If  1,  fatal  errors  on  input,  do  not  run 
case  through  sequence 

bit  1  Case  card  Intercepted 

If  =  0,  case  card  not  intercepted 

If  =  1,  case  card  found  and  processed 

bit  2-47  Not  used 

CARDS  Cards  found.  A  bit  is  set  =  1  for  each  card  type 
Intercepted  and  successfully  processed  since  last 
SEA  card.  Bits  are  assigned  as  follows: 
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(EXEC)  bit  0  Mot  used 

1  Element  cards  (Type  E) 

2  Sensor  cards  (Type  S) 

3  Simulation  parameter  cards  (Type  I) 

4  Staiulard  deviation  and  bias  cards  (Type  M) 

5  Variant  element  cards  (Type  V) 

6-45  Mot  used 

46  Observation  cards  (Type  0,  A,  0,  1,  2,  3, 

4,  5,  6,  7,  8,  9) 

47  Mot  used 

CARDOPT  Cards  required.  A  bit  is  set  ■  1  for  each  card  type 

required  to  run  the  sequence.  Bit  assignments  must  be 
(COMTROLM)  identical  to  the  bit  assignments  for  CARDS. 

CROETYP  C/HLT,  XABUj  C/HLT,  where  location  TABLE  must  contain 

the  following: 

(COMTROLM)  TABLE  W/OOOOOOOA  VRiere  A,  B,  C,  etc. 

W/OOOOOOOB  etc.  correspond  to  the 
W/OOOOOOOC  bits  in  CARDOPT, 

The  first  entry  in  TABLE  must  agree  with  the 
leftmost  bit  set  ■  1  in  CARDOPT,  the  second 
entry  with  the  second  bit  ■  1,  etc.  There 
must  be  the  same  number  of  entries  in  TABLE 
as  there  are  bits  ■  1  in  CARDOPT. 

CCARD  Control  cards  found.  A  bit  is  set  -  1  for  each  type 

of  control  card  successfully  processed  since  last  SEA 
(EXEC)  card.  Bits  are  assigned  as  follows: 

bit  0  Not  used 

1  AQTINT  control  card 

2  MOCARO  control  card 

3  S6PDC  control  card 

4  Mot  used 

5  ERPRED  control  card 

6-47  Not  used 
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CCRDOPT 

(CONTROIM) 

COMPROZ 

(CONTROIM) 


CONPRO 

(CONTROIM) 


CAROTBL 


Control  cards  required.  A  bit  is  set  ■  1  for  each 
type  of  control  card  required  to  run  the  sequence. 

Bit  assignments  must  be  the  same  as  those  for  CCARD. 

C/HLT;  C/HLT,  TABLE  where  location  TABI£  must  contain 
the  following: 

TABLE  W/AQTINT 
W/MOCARO 
W/SGPDC,  etc. 

The  BCD  words  given  correspond  to  the  ID's  expected 
on  the  control  cards  required  as  specified  by  CCRDOPT. 

The  first  entry  in  TABLE  will  correspond  to  the  first 
bit  (counting  from  the  left)  in  CCRDOPT.  The  number 
of  entries  in  TABLE  will  be  the  same  as  the  ntmber 
of  bits  set  in  CCRDOPT.  Each  entry  should  be  centered, 
if  possible,  within  the  8  characters  of  the  word,  with 
unused  characters  left  blank. 

C/HLT,  TABLEl;  D/HLT,  N  where  location 

TABIEl  must  contain  the  following; 

TABLEl  W/OOAQTINT 
W/OOMOCARO 
W/OOOSGPDC  etc. 

The  BCD  words  given,  correspond  to  the  ID' s  on  the 
control  cards  required.  The  ID's  must  be  right  adjusted 
with  leading  zeros.  N  "  the  number  of  entries  in  TABLEl. 

TABLEl  must  be  followed  by  a  TABLED  where  TABIE2  contains 
the  following: 

TABIE2  C/JMP,  AQTCON;  C/JMP,  AAA 
C/JMP,  MCCON;  C/JMP,  AAA 

C/JMP,  DCCON;  C/JMP,  AAA  etc. 

"AQTCON"  is  a  subroutine  to  convert  the  control  card  ! 

with  the  ID  "AQTIKT";  "MCCON"  is  a  subroutine  to  con-  .i 

vert  the  control  card  with  the  ID  "MOCARO",  etc.  The 
first  entry  in  TABLE2  must  correspond  to  the  first  ; 

entry  in  TABLEl.  TABIE2  will  be  N  entries  long  and  | 

must  be  located  immediately  after  TABLEl  (or  at 
location  TABLEl  +  N) . 

C/HLT,  TABLEl;  C/HLT,  N  where  location  ^ 
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(CONTROLN) 


PROGTBL 

(CONTROLN) 


TABLEl  must  contain  the  following: 

TABLE 1  W/OOOOOOOA 

W/OOOOOOOB 
W/OOOOOOOC  etc. 

The  BCD  character  given  corresponds  to  the  card 
types  in  Column  80  of  the  data  cards  required  by 
the  sequence.  The  card  types  must  be  right  adjusted 
with  preceding  zeros. 

N  "  the  number  of  entries  in  TABLEl. 

TABLEl  must  be  immediately  followed  by  TABLE2 
(TABLE2  start  address  "  TABLEl  start  address 
+  N).  TABLE2  contains  the  following: 

TABLE2  C/JMP,  ACARD;  C/JMP,  AAA 
C/JMP,  BOARD;  C/JMP,  AAA 
C/JMP,  CCARD;  C/JMP,  AAA  etc. 

"ACARD“  is  a  subroutine  to  convert  the  data  card 
with  “A“  in  Col  80;  "BOARD"  is  a  subroutine  to  con¬ 
vert  the  data  card  with  "B"  in  Col  80,  etc.  The 
first  entry  in  TABLE2  must  Indicate  a  subroutine 
which  converts  the  data  card  indicated  by  the  first 
entry  in  TABLEl.  TABLE2  will  be  N  entries  in  length. 

Program  jump  table 

PROGTBL  C/JMP,  PROGl 
C/JMP,  PROG2 

C/JMP,  PROGN 
C/JMP,  SEAEOJ 

PROGl  is  the  starting  instruction  of  the  first  program 
in  ^he  sequence;  "PROG2"  is  the  starting  instruction 
of  the  second  program  in  the  sequence,  etc.;  and  "PROGN" 
is  the  starting  instruction  of  the  last  program  in  the 
sequence.  This  will  control  the  running  of  programs, 
as  the  EXEC  will  transfer  control  to  the  programs 
sequentially.  A  jump  to  SEAEOJ  must  always  be  the  last 
entry  in  the  table.  Each  program  above  should  exit  to 
to  "EXEND"  or  "NXJOB"  in  the  case  of  an  error. 
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PROGNO 

(EXEC) 

CONBITS 

(SYS) 


C/HLT,  N,  C/HLT,  where  N  is  the  number  of  the  program 
currently  being  run.  The  "Jump  and  Address"  used  to 
transfer  control  to  the  program  N  is  at  location 
PROGTBL  •  1  -t-  N.  PROGNO  is  incremented  by  EXEND. 

SYS  master  control  word,  used  by  SYS  for  all  switches, 
inhibits,  flags,  etc.  The  exact  bit  assignments  are 
as  follows: 


bit  0  Always  =  0,  not  used 

bit  1-15  Address  of  next  input  card  to  be  processed. 

Used  only  if  input  is  from  magnetic  tape. 
The  address  is  between  600o  and  770g.  If 
the  address  equals  770g,  the  next  input 
card  is  in  the  next  block  on  Tape  8. 


bits  16-20  Not  used 


bit  21  =  1  if  SYS  is  to  search  for  a  "JOB"  card, 

bypassing  all  other  control  cards.  This 
search  will  occur  at  the  next  entry  to 
INXTCON  (M/5). 


=  0  if  SYS  is  to  retrieve  the  next  sequential 
control  line  at  the  next  entry  to  INXTCON. 

bit  22  =  1  if  input  on  Tape  8  is  in  the  image  mode. 

=  0  if  input  on  Tape  8  is  in  the  code  mode. 

Not  used  if  input  is  not  from  magnetic  tape. 

bit  23  =1  indicates  that  the  information  in  the 

input  buffer  (M/600  -  M/777)  has  been  des¬ 
troyed,  and  SYS  must  reread  the  last  block 
of  data  from  Tape  8  when  the  next  control 
line  is  requested  in  INXTCON. 

=  0  if  the  Information  in  the  input  buffer 
has  not  been  destroyed. 


Not  used  if  input  is  not  from  magnetic  tape, 
bit  24  Always  =  0,  not  used. 

bits  25-39  Left  shift  required  of  "PTffORD"  to  bring  the 
next  character  to  be  processed  T5  (in  bits 
0  to  5).  If  the  nisnber  >  48,  PTWORD  has 
been  entirely  processed  and  the  next  character 
is  in  the  next  word  of  the  control  line. 
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bit  40  Always  »  0,  not  used. 

bit  41  ■  1  1£  the  accounting  clock  Is  In  the  system 

(part  of  the  computer  complex) . 

a  0  If  no  accounting  clock  Is  available. 

bit  42  B  1  If  the  next  control  line  Is  not  to  be 
processed  Immediately  upon  retrieval. 
"INXTCON"  will  move  the  next  control  line 
Into  "CONLINE"  without  processing  It,  and 
exit  to  the  "ENTRY  JA." 

B  0  If  the  next  control  line  Is  to  be  proc-* 
essed  Immediately  after  It  Is  retrieved. 

bit  43  B  1  If  Image  mode  Input  from  magnetic  tape 
should  be  converted  to  code  mode  from  Col  1 
to  Col  24,  leaving  Col  25  to  Col  80  In  Image 
mode. 

B  0  If  Image  mode  Input  from  magnetic  tape 
should  be  converted  to  code  mode  from  Col  1 
to  Col  80.  Not  used  If  Input  Is  not  Image 
mode  from  magnetic  tape. 

bit  44  B  1  If  a  "JOB"  card  Is  not  legal  at  this  time 
(e.g.  -  during  compilation). 

B  0  If  a  "JOB"  card  is  allowed, 
bit  45  B  1  If  input  is  from  magnetic  tape, 

bit  46  B  1  if  Input  is  from  paper  tape, 

bit  47  =  1  if  input  is  from  the  flexowriter. 

One  and  only  one  of  the  bits  45  to  47  must  be  set  =  1, 
the  other  two  must  be  =  o. 
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SECTION  5 

SYSTEM  SUBROUTINES 


The  subrountlnes  available  to  the  Simulation  Error  Analysis 
System  are  classified  In  four  groups:  Program, SYS,  Phllco,,  and  Common. 
Phllco  subroutines  are  accessible  from  the  Phllco  Subroutine  library  tape 
and  are  read  Into  core  by  SYS  as  required,  SYS  subroutines  are  In  the 
area  of  core  allocated  to  SYS{  therefore,  they  are  available  as  long  as 
SYS  Is  retained  In  core.  Program  subroutines  are  those  used  by  one  spe¬ 
cific  program  and  are  compiled  with  It.  In  order  to  conserve  core  space, 
the  subroutines  used  by  more  than  one  program  have  been  collected  Into 
a  section  called  SUBS  and  arc  designated  the  Common  System  Subroutines. 

This  section  presents  the  Input,  output,  and  calling  sequences 
for  all  of  the  common  subroutines  and  a  few  of  the  frequently  used  SYS 
subroutines.  Phllco  subroutine  specifications  are  a  part  of  the  Phllco 
documentation  which  may  be  obtained  from  the  Phllco  Computer  Division. 

The  subroutines  are  presented  In  alphabetical  order  and  are  dated  for 
anticipated  revisions  and  additions. 

Input  and  output  quantities  will  have  an  associated  symbol, 
when  applicable,  designating  the  format  of  the  word.  The  formats  are 
assigned  as  follows: 

D  -  Decimal 

F  -  Floating  Point 

0  -  Octal 

BCD  -  Binary  Coded  Decimal 

Tx  -  Fixed  Point  Number  with  x  as  the  scale  factor 

Within  the  calling  sequences,  many  capitalized  words  are  In 
parentheses  to  Indicate  that  they  are  not  absolute  core  locations.  These 
locations  must  be  assigned  by  the  user  when  calling  one  of  the  subroutines. 
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The  aubroutlnei  exit  to  core  celli  0  (exponent  overflow)  or 
3  (atenderd  error)  bypeaaing  the  normel  exit  when  encountering  non- 
recoverable  errora.  Progrema  ualng  theae  routlnea  muat  preaet  cella 
0  and  3  for  error  recovery  procedure. 
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AKLOK 

(SEA) 

11/30/62 


PURPOSE:  To  read  the  Accounting  Clock  and  convert  It  to  standard 

(6-Blt)  BCD  format. 

CALL  SEQUENCE:  JMP  AKLOK 

TAM  (RESULT  1) 

TQM  (RESULT  2) 

INPUTS:  None 

OUTPUTS :  RESULT  1  -  AAAAyYMM 

RESULT  2-DDHHMM.M 

STORAGE 

REQUIREMENTS:  11  Cells 

SUBROUTINES ;  Common :  KLOK 

DESCRIPTION: 

Since  the  Accounting  Clock  does  not  contain  the  year, 
the  last  two  digits  of  the  year  in  core  location  ZYEAR  are  inserted  in 
bits  24-35  of  Result  1,  after  the  Accounting  Clock  has  been  converted 
from  4-bit  BCD  to  6-bit  BCD. 

Note:  ZTEAR  must  be  updated  yearly. 
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(SEA) 

11/30/62 


PURPOSE:  To  convert  an  AQTINT  Control  Card. 

CALL  SEQUENCE:  JMP  AQTCON 

JAZ  (ERROR) 

INPUTS: 

AQTINT  Control  Card 
CCARD  -  See  Description 

OUTPUTS: 


OBSDUR  - 

Observation  duration  (minutes) 

(F) 

TOPT  - 

Output  option  for  TBLOC 

D(T  47) 

OBSOPT  - 

Output  option  for  OBSIM 

D(T  47) 

PERT  - 

Perturbations  control  (for  all 

programs 

except  DC) 

D(T  47) 

PNCHOBS- 

Punched  output  option  for 

OBSIM 

D(T  47) 

CCARD  =» 

See  Description 

STORAGE  REQUIREMENTS:  33  Cells 

SUBROUTINES:  Common:  SFXFLTA,  SFXINT,  CARDER,  PANT 

DESCRIPTION: 


Core  location  CCARD  is  checked  to  see  that  an  AQTINT 
Control  Card  has  not  been  converted  for  the  case.  If  one  has  been 
processed,  the  current  one  will  be  rejected  with  an  error  comment  and 
the  A  Reg  >0;  If  not,  the  card  will  be  converted,  and  Bit  1  will  be 
set  ■  1  In  CCARD  to  Indicate  a  successful  conversion.  If  an  error 
occurs  during  conversion,  an  error  comment  will  be  printed  and  the 
subroutine  will  exit  with  the  A  Reg  >  0. 
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PURPOSE; 

To  find,  the  arc  cos  of  a  floating  point  number 

CALL  SEQUENCE: 

IMA 

JMP 

JMP 

TAM 

(WORD) 

ARCCOS 

(ERROR) 

(RESULT) 

INPUTS: 

WORD  - 

Cos 

(X)  (Floating  point) 

OUTPUTS: 

RESULT 

-  X 

,  0^  X  (Floating  point) 

STORAGE 

REQUIREMENTS: 

14  Cells 

SUBROUTINES: 

Phllco: 

FACOS 

DESCRIPTION: 

Due  to  cumulative  computational  round-off  errors,  It 
Is  possible  for  the  cosine  of  an  angle  near  0°  to  be  greater  than  1: 
Therefore  a  comparison  is  made  between  cos  (X)  and  1.001: 

if  cos 

(X) 

f  >  1.001  -*•  ERROR 
is  <  ^1.0  and  ^1.001  -♦  X  ■  0  or  tt 

1  <  1.0  ^  0  <  X  <  7T 
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PURPOSE: 

CALL  SEQUENCE: 

INPUTS: 

OUTPUTS: 

STORAGE 

REQUIREMENTS: 

SUBROUTINES: 

DESCRIPTION: 

It  is  possible 
1.  Therefore  . 
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(SEA) 
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To  find  the  arc  sin  of  a  floating  point  number 

TMA  (WORD) 

JMP  ARCS IN 

JMP  (ERROR) 

TAM  (RESULT) 

WORD  -  Sin  (X)  (Floating  point) 

Result  •  X,  tt/Z  <X<  7t/2  (Floating  point) 

16  Cells 
Phllco:  FASIN 


Due  to  culmulatlve  computational  round-off  errors, 
for  the  sine  of  an  angle  near  90°  to  be  greater  than 
comparison  Is  made  between  sin  (X)  and  1.001: 

r>  1.001  -*■  ERROR 

If  I  sin  (X)  I  Is  <  >  1.0  and  <  1.001  -+  X  -±7r/2 
|^<  1.0  —  -  Tr/2  <  X  <  tt/z 
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PURPOSE; 


To  find  the  arc  tan  of  a  floating  point  number 


CALL  SEQUENCE:  TMA 
TMQ 
JMP 
TAM 


INPUTS: 

OUTPUTS: 

STORAGE 

REQUIREMENTS: 

SUBROUTINES; 

DESCRIPTION: 


(WORD  1) 
(WORD  2) 
ARCTAN 
(RESULT) 


WORD  1 
WORD  2 


Cos  (X) 
Sin  (X) 


) 


Floating  point 


RESULT  -  X,  0^X^27T  (Floatingpoint) 


17  Cells 
Fhllco:  FATAN 


If  sin  (X)  ■  0  and  cos  (X)  ■  0,  then  X  ■  0 
arbitrarily  with  no  error  Indication. 
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PURPOSE : 

To  read  the 

1  Accounting  Clock 

or  typing. 

CALL  SEQUENCE: 

JMP 

BCDCLK 

TAM 

(RESULT  1) 

TC^ 

(RESULT  2) 

INPUTS : 

None 

OUTPUTS : 

RESULT  1  - 

YY  -  MM  -  Dd"! 

RESULT  2  - 

-  MM.M  j 

STORAGE  REQUIREMENTS: 

29  Cells 

SUBROUTINES: 

Common : 

AKLOK 

and  edit  it  for  printing 


6-Bit  BCD 


DESCRIPTION: 


This  subroutine  uses  AKLOK  to  get  the  Accounting 
Clock  and  year  in  6-Bit  BCD,  putting  it  in  the  format  for  printing 
and  typing. 
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PURPOSE; 

CALL  SEQUENCE; 

INPUTS; 

OUTPUTS; 

STORAGE 

REQUIREMENTS 

SUBROUTINES; 

DESCRIPTION; 

wich  the  A  Reg 
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BCDFD 

(SEA) 

11/30/62 


To  convert  BCD  date  to  floating  point  days  and 
fractions  since  the  beginning  of  the  year 


TMA 

(WORD  1) 

TMQ 

(WORD  2) 

JMP 

BCDFD 

JAZ 

(ERROR) 

TAM 

(RESULT  1) 

T(]^ 

(RESULT  2) 

WORD  1 
WORD  2 


"I  6-BltBCD 
MMSS.SSS  J 


RESULT  1 
RESULT  2 


Integral  number  of  days 
Fractional  number  of  days 


} 


Floating  Point 


71  Cells 

Common;  SFXFLTA 


If  an  error  Is  found,  the  normal  exit  will  be  taken 

-  0 
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(SEA) 
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PURPOSE:  To  set  Input  card  retrieval  (INXTCON)  to  reprocess 

last  control  line. 

CALL  SEQUENCE:  JMP  BCKICRD 

INPUTS:  Left  address  of  CONBITS  >  Location  of  current  control 

line. 

OUTPUTS:  Left  address  of  CONBITS  ■  Location  of  previous  control 

line . 

STORAGE 

REQUIREMENTS:  20  cells 

SUBROUTINES:  Common:  PANT 

SYS:  ITYPOUT 

DESCRIPTION: 

If  input  is  from  magnetic  tape,  the  cell  CONBITS  is 
reset  to  location  of  previous  card  image.  If  input  is  from  the 
flexowriter,  the  comment  "IMPROPER  CONTROL  LINE"  is  typed.  If  input 
is  from  paper  tape,  the  comment  "CONTROL  LINE  ON  PAPER  TAPE  OUT  OF 
ORDER  "  is  printed. 
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(SYS) 
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PURPOSE:  To  call  In  the  block  of  the  SYS  Tape  specified  and 

transfer  control  to  It. 


CALL  SEQUENCE:  C/JMP,  BLKIN:N/#T47 

Control  returned  to  ENTRYJA 
ENTRYJA  not  set  by  JMP  BLKIN 


INPUTS:  ■  The  decimal  number  of  the  block  desired 

Example:  C/JMP,  BLKIN;  M/7T47  to  retrieve  the  seventh  block 
on  tape  1  (SYS  tape) 


OUTPUTS:  Execution  of  program  In  block  given 

STORAGE 

REQUIREMENTS:  Part  of  SYS 


SUBROUTINES:  SYS  subs  only 


DESCRIPTION: 

BLKIN  reads  the  SYS  tape  Into  cells  M/400  to  M/577  searching 
for  the  block  number  specified.  When  block  #  Is  found,  BLKIN  Jumps  to  M/401, 
and  thereby  transfers  control  to  the  routine  In  the  block  specified.  Normally 
control  will  be  returned  to  the  ENTRYJA,  thus  back  to  the  entry  to  SYS  Just 
prior  to  the  Jump  to  BLKIN. 
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PURPOSE: 

To 

output 

card  error  comments. 

CALL  SEQUENCE: 

(1) 

TMA 

(WORD) 

(3) 

JMP 

CARDERB 

JMP 

CARDER 

(2) 

TMA 

(WORDl) 

(4) 

TMA 

(WORD  2) 

JMP 

CARDERA 

JMP 

CARDERC 

INPUTS : 

In 

all  cases,  XR3 

must  contain 

the 

location  of  the 

erroneous  card: 


WORD 

WORDl 

WORD2 


??????  NN 
?  ?  7  ?  ?  ?  ?N 
7  7  ?  ?  ?  ?  ?N 


(BCD  Column  Number) 
(BCD  Card  Type) 

(BCD  Card  Type) 


OUTPUTS: 


See  Description 


STORAGE 

REQUIREMENTS:  48  Cells 

SUBROUTINES:  Common:  PANT,  PAGECON 

DESCRIPTION: 


The  subroutine  will  Insert  the  given  parameter  Into  one 
of  the  following  connnents  corresponding  to  the  entrance: 

(1)  -  Error  In  field  ending  In  Col.  NN. 

(2)  -  System  expects  card  with  N  In  Col.  80. 

(3)  -  (No  comment) 

(4)  -  Card  rejected,  too  many  cards  of  type  N. 

The  program  will  then  output  the  comment  (or  no  comment) 

followed  by: 

1  8  16  24  32  40  43  56  64  72  80 

(80  Column  Card  Image  - -  ,  ,  ■  ^  ) 

1  Line  space 

CARDER  subroutines  set  the  no-run  switch  for  the  EXEC  (bit 
0  of  EXSWTCH),  except  for  the  CARDERC  routine. 


n 

li 


STHUIATION  ERROR  ANALYSIS  SYSTEM 


PBOGRAM  DOCIBffiNT 

CARRET 

(SEA) 

11/30/62 


PURPOSE:  To  Issue  a  carriage  return  to  the  flexowrlter. 

CALL  SEQUENCE:  JMP  CARRET 


INPUTS: 

OUTPUTS : 

STORAGE 
REQUIREMENTS : 

SUBROUTINES : 


None 

A  carriage  return  character  transmitted  to  the  flexowrlter 

2  cells 
None 
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COBGET 

(SEA) 

11/30/62 


PURPOSE:  To  retrieve  one  contaminated  observation  from  COBLOC 


CALL  SEQUENCE: 

(1)  To  initialize: 

(2)  Normal 

JMP  INITCOB 

JMP 

COBGET 

+1H  JMP 

(END) 

+2H 

(NORMAL) 

INPUTS: 

COBLOC 

LOCCOB  -  C/HLT,  COBLOC; 

C/HLT,  0 

Termination  Indicator  for 

COBLOC  must 

be  48/0 

OUTPUTS : 


END  «  End  of  contaminated  observations 
NORMAL  -  A  REG  STAID 


STAID 
OTYPE 
RANGE 
ALPHA  ) 
DELTA  I 
RODOT 


(See  COBLOC  format  for  contents  of  core 
locations) 


STORAGE 

REQUIREMENTS:  8  Cells 


SUBROUTINES :  None 


DESCRIPTION : 


It  is  necessary  to  "JMP  INITCOB"  only  before  the  first 
"JMP  COBGET."  INITCOB  sets  the  beginning  address  of  COBLOC;  with  every 
call  of  COBGET,  this  address  is  modified  to  retrieve  the  next  successive 
contaminated  observation.  The  maximum  number  of  contaminated  observations 
is  500. 


SDnUATlON  ERROR  ANALYSIS  SYSTEM 


PROGRAM  DOCUMEHT 

COBPCK 

(SEA) 

11/30/62 


PURPOSE;  To  pack  one  contaminated  observation  Into  COBLOC 

CALL  SEQUENCE:  (1)  To  Initialize:  (2)  Normal: 

JMP  ICOBPCK  JMP  COBPCK 

INPUTS:  LCOBLOC  -  C/HLT,  COBLOC;  C/HLT,  COBLOC  +  3000 


STAID 
OTYPE 
RANGE  V 
ALPHA  ( 
DELTA 
RODOT 

T  J 


(See  COBLOC  format  for  contents  of  core 
locations) 


OUTPUTS;  One  contaminated  observation  in  COBLOC  (See  COBLOC  format) 


STORAGE 

REQUIREMENTS:  46  Cells 

SUBROUTINES;  Common:  PANT,  GLOP,  FAGECON 

Program;  OBPCKA,  OBPCKS  (See  OBPCK)  . 

DESCRIPTION: 

It  is  necessary  to  "JMP  ICOBPCK"  only  before  the  first 
"JMP  COBPCK".  ICOBPCK  setj  the  beginning  address  of  COBLOC.  With  every 
call  of  COBPCK  this  address  is  modified  in  order  to  pack  the  next  ob-; 
servation  successively.  500  observations  may  be  stored  in  COBLOC; 
observations  in  excess  of  500  will  be  printed. 


SIMULATION  ERROR  ANALYSIS  SYSTEM _ PROGRAM  DOCUMENT 

DCCON 

(SEA) 

11/30/62 


PURPOSE;  To  convert  a  SGPDC  Control  Card. 

GALL  SEQUENCE:  JMP  DCCON 

JAZ  (ERROR)  : 

J 

INPUTS:  SGPDC  Control  Card 

CCARO 

OUTPUTS : 

DCCCPl  -  Correction  flag  override  (0,blts  41  through  47  only) 

DCCCP2  -  Repeat  counter  override  (BCD) 

DCCCP3  -  Perturbatlona  Control  (DC)  (D/T47) 

DCCCP4  -  Output  Options  (0,  bits  42  through  47  only) 

DCCCP5  -  RMS  multiplier  override  (BCD) 

DCCCP6  -  First  absolute  maximum  override  (F) 

DCCCP7  •  Second  absolute  maximum  override  (F) 

DCCCP8  -  ABSMX2  override  (F) 

DCCCP9  -  Convergence  criterion  override  (F) 

DCCCFIO  -  DC  distribution  override  (D/T47) 

DCSl  -  Lower  limit  (distribution)  (F) 

DCS2  •  Upper  limit  (distribution)  (F) 

DCNS  -  No.  of  quantities  to  compute  range  of  distribution 
(D/T47) 

DCI  -  No.  of  cells  In  distribution  (D/T47) 

CCARD  -  See  Description 

STORAGE 

REQUIREMENTS:  61  Cells 

SUBROUTINES:  Coonion:  SXSRCH,  CARDER,  PANT  .1 

DESCRIPTION: 

j 

Core  location  CCARD  Is  checked  to  see  that  a  DC  Control  Card 
has  not  been  converted  for  the  case.  If  one  has  been  processed,  the  current  .. 

one  will  be  rejected  with  an  error  comment  and  the  A  Reg  -  0;  If  not,  the  card  f 

will  be  converted.  If  SI  and/or  S2  •  A ,  then  SI  and/or  S2  will  be  set  -  3. 

The  subroutine  will  then  make  the  following  tests: 

1.  SI  and  S2  -  0  3.  I  Neg  ! 

2.  SI  or  S2  Neg  4.  1  2  101 

If  any  of  the  above  are  true,  or  If  there  was  an  error  on  con¬ 
version,  the  card  will  be  rejected  with  an  error  comment  and  the  A  Reg  ■  0.  If  j 

the  card  conversion  Is  successful.  Bit  3  will  be  set  -  1  In  core  location  CCARD. 

-  e 

ii 


SIMWATION  ERROR  ANALYSIS  SYSTEM 


PRCiGRAM  DOCUMENT 

DEL6ET 

(SEA) 

11/30/62 


PURPOSE: 


To  retrieve  a  delta  element  set  from  OEBLOC 


CALL  SEQUENCE:  (1)  To  Initialize 

JMP  INITDEL 


(2)  Normal: 

JMP  DELGET 
+1H  JMP  (END) 
■f2H  Jiff'  (NORMAL) 


INPUTS:  LOCDEL  -  C/HLT,  DEBLOC;  C/HLT,  0 

Termination  indicator  for  DEBLOC  must  be  48/0 
DEBLOC 


OUTPUTS: 


END  - 

DELA 

DELE 

DELI 

DELNOD 

DELOM 

DEUIO 

DELCO  , 


End  of  DEBLOC 


(See  DEBLOC  format  for  contents  of  core  location) 


STORAGE 

REQUIREMENTS:  17  Cells 


SUBROUTINES:  None 

DESCRIPTION: 

It  is  necessary  to  "JMP  INITDEL"  only  before  the  first  "JMP 
DELGET".  INITDEL  sets  the  beginning  address  of  DEBLOC.  With  every  call  of 
DELGET  this  address  is  modified  to  retrieve  the  next  successive  set  of  delta 
elements.  The  maximum  number  of  sets  of  delta  elements  is  100. 


SIMULATION  ERROR  ANALYSIS  SYSTEM 


PROGRAM  DOCUMENT 

DELPCK 

(SEA) 

11/30/62 


PURPOSE;  To  pack  one  delta  element  set  Into  DEBLOC 

CALL  SEQUENCE:  (1)  To  initialize  (2)  Normal 

JMP  IDELPCK  JMP  DELPCK 


INPUTS : 


OUTPUTS: 


LOEBLOC 

DELA  '' 

DELE 

DELI 

delnod) 

DELOM 
DELMO 
DELCO  ^ 


C/HLT,  DEBLOC;  C/HLT,  DEBLOC  +700 


(See  DEBLOC  format  for  contents  of  core  locations) 


One  set  of  delta  elements  in  DEBLOC  (See  DEBLOC  format) 


STORAGE 

REQUIREMENTS:  41  Cells 


SUBROUTINES:  Common:  PANT,  GLOP,  PAGECON 

DESCRIPTION: 


It  is  necessary  to  "JMP  IDELPCK"  only  before  the  first 
"JMP  DELPCK",  IDELPCK  sets  the  beginning  address  of  DEBLOC.  With  every  call 
of  "DELPCK"  this  address  is  modified  in  order  to  pack  the  next  delta  element 
set  successively.  100  sets  of  delta  elements  may  be  stored  in  DEBLOC.  The 
delta  element  sets  in  excess  of  100  will  be  printed.  . 


SIMUUTIOM  EMIOR  AHALYSIS  SYSTEM _ PROGRAM  DOCDMEMT 

ECARD 

(SEA) 

11/30/62 


PURPOSE:  To  control  the  conversion  of  nominal  and  variant  element 

cards  1  and  2  Into  EBLOC  and  VEBLOC  format. 

CALL  SEQUENCE:  (1)  To  Initialize  (2)  Normal 

JMP  ECARDI  JMP  ECARD' 

INPUTS:  XR3  -  Location  of  card  Image 

For  E  Card  processing,  the  following  locations  must  be  set 
Initially: 

LEBLOC  -  C/HLT,  EBLOC;  C/HLT,  EBLOC  -<-12 
SATSTB  -  C/HLT,  EBLOC;  C/HLT,  0 

For  V  Card  processing,  the  following  locations  must  be  set 
Initially: 

LVEBLOC  -  C/HLT,  VEBLOC;  C/HLT,  VEBLOC  +  700 
ElMSTB  -  C/HLT,  VEBLOC;  C/HLT,  0 
LDEBLOC  -  C/HLT,  DEBLOC;  C/HLT,  DEBLOC  +  700 
DELSTB  -  C/HLT,  DEBLOC;  C/HLT,  0 

OUTPUTS: 

See  Output  of  VECARD  or  ELMRED 

For  E  Card  processing: 

Increments  left  address  of  SATSTB  by  12 
Increments  ECOUNT  by  1 

Sets  right  address  of  LOCSAT  equal  to  left  address 
of  SATSTB 

Sets  Bit  1  -  1  In  core  location  CARDS 
For  V  Card  processing: 

Increments  left  address  of  EUlSTB  and  DELSTB  by  7 
Increments  VECOUNT  and  IXCOUNT  by  1 
Sets  right  address  of  LOCEUl  and  LOCIXL  equal  to  the 
left  address  of  ELMSTB  and  DELSTB  respectively 
Sets  Bit  5  ••  1  In  core  location  CARDS 


SIMULATIOK  ERROR  ANALYSIS  SYSTEM 


PROGRAM  DOCUMENT 

BOARD 

(SEA) 

11/30/62 

(continued) 


STORAGE 

REQUIREMENTS;  18A  Cells 

SUBROUTINES:  Common:  CARDER,  PANT,  PAGECON,  ELMRED,  VECARD 

DESCRIPTION: 


cards . 


Nominal  element  cards  must  be  Input  before  variant  element 


It  Is  necessary  to  "JMP  ECARDI”  only  before  the  first 
"JMP  ECARD"  to  Initially  clear  buffers.  A  pair  of  element  cards  (cards  1 
and  2)  must  be  entered  together;  If  not,  the  subroutine  will  search  for  a 
pair,  while  saving  the  most  recent  cards  In  a  buffer  and  printing  error 
comments  on  those  rejected.  Having  found  a  pair  of  element  cards,  a  com¬ 
parison  Is  made  as  to  whether  both  cards  have  the  same  element  type  (A,  B, 

C,  or  D) ,  satellite  number,  and  card  type  (E  or  V).  If  all  3  do  not  agree, 
the  search  for  a  pair  is  begun  again,  while  the  most  recent  cards  are  saved 
and  an  error  comment  is  printed.  If  all  3  agree,  card  type  is  tested  to 
determine  which  routine  should  unpack  the  cards:  E  =  ELMRED  (nominal  element 
cards)  or  V  ■  VECARD  (variant  element  cards) .  If  the  cards  converted  were 
variant  element  cards,  the  subroutine  will  fill  DEBLOC  with  nominal  classi¬ 
cal  elements  to  be  used  later  to  create  a  true  delta  element  block.  Having 
successfully  converted  the  cards,  the  subroutine  will  set  counters,  strobes 
and  CARDS,  then  exit.  If  unsuccessful,  the  program  will  take  the  normal 
exit,  but  the  appropriate  card  bit  will  not  be  set  in  core  location  CARDS. 


SIMUUTION  ERROR  ANALYSIS  SYSTEM 


PROGRAM  DOCPMENT 

ELEMl 

(SEA) 

11/30/62 


PURPOSE: 

CALL  SEQUENCE: 


INPUTS: 


OUTPUTS: 


TYPE  A: 

+aVWy^NNN(BCD) 
•fl  a(E.R.) 

•t-2  e 

+3  1  (Deg) 

44  n  (Deg) 

+5  03  (Deg) 

+6  Mj,(Deg) 


STORAGE 

REQUIREMENTS: 

SUBROUTINES : 

DESCRIPTION: 


To  unpack  Element  Card  1. 


TMA  (WORD) 

JMP  ELEMl 


WORD  •  C/HLT.  (Elem.  Card  1  .addreas  );  C/HLT,  (Output  buffer 
address) 

Element  Card  1 

Output  buffer-formats  for  element  types  A,  B,  C,.D, 
respectively.  In  the  first  word,  N  >  satellite  number. 

All  numbers  are  floating  point  except  those  designated  as 
BCD. 


TYPE  B: 


TYPE  C: 


TYPE  D: 


AVW\  NNN  (BCD) 

x(KM) 

y(KM) 

z(KM) 

x(M/sec) 

y(M/8ec) 

z (M/sec) 


ZiAiWiNNN  (BCD) 
Hq  (KM) 
e 

1  (Deg) 
ho  (Deg) 

Uo(Deg) 

ZZZZZ  PP 


_  NORTH 
SOUTH 


a(E  R.) 
e 

1  (Deg) 
n  (Deg) 
03  (Deg) 

hj,(Deg) 

(BCD) 


24  Cells 
Common :  SFXFLT 


The  subroutine  unpacks  element  card  1  and  stores  the  input 
numbers  Into  the  output  buffer  as  shown  above.  If  an  error  Is  found  In 
converting  the  numbers  to  floating  point,  the  normal  exit  will  not  be  taken. 
Rather,  the  subroutine  will  transfer  to  core  location  ELERRl,  where  error 
recovery  must  be  set  up. 


SIMUUTION  ERROR  ANALYSIS  SYSTEM 


PROGRAM  DOCUMENT 

ELEM2 

(SFA) 

11/30/6?. 


PURPOSE:  To  unpack  Element  Card  2. 

CALL  SEQUENCE:  TMA  (WORD) 

JMP  ELEM2 

INPUTS:  WORD  -  C/HLT,  (Elem.  Card  2  address);  C/HLT  (Output  buffer 

address) 

Element  Card  2 


OUTPUTS: 


STORAGE 

REQUIREMENTS: 

SUBROUTINES : 


The  output  buffer  formats  for  the  various  element  types  are 
as  follows  (  the  BCD  character  T  is  filled  by  the  element  type 
A,  B,  C,  or  D,  AAA  is  the  element  number,  NNN  is  the  satellite 
number,  and  SSS  is  the  sensor  number)  : 


Types  A  or  B : 


Types  C  or  D: 


ETAAANNN  (BCD) 


(To  be  filled) 


+0 
+1 
+2 
+3 
+4 
+5 
+6 
+7 
+8 

+9  (to  be  filled) 
+10  YYMMDDHH 
+11  MMSS.SSS 
REFYEAR  OOOOOOOY 
RHOO  00000000 
ELMSEN  OOOOOA5A 


C  (Days /rev) 
t  (minutes) 


(F) 


}  (BCD) 


+0 

+1 

+2 

+3 

+4 

+5 

+6 

+7 

+8 

+9 


ETAAANNN  (BCD 
^  (To  be  filled) 

C^  (Days/rev)  (F) 
'y  To  be  filled 


+n 

RHOO  00000000  or  Pp(km)(F) 
ELMSEN  OOOOOSSS  (BCD) 


37  Cells 

Common:  BCDFD,  SFXPLT 


DESCRIPTION : 


The  subroutine  unpacks  element  card  2  into  the  output  buffer  and 
core  locations  as  shown  above.  If  errors  occur,  the  normal  exit  is  not  taken; 
rather,  the  exits  indicated  will  be  taken.  It  is  necessary  to  set  up  error  re¬ 
covery  at  these  core  locations 

Invalid  epoch  time  (field  1) - »•  ELERR2 

Invalid  C  (field  2) - i^  ELERR2A 

Invalid  p°  (field  4) - »>ELERR2B 

O  _  _  _ 


SIMUIATION  ERROR  ANALYSIS  SYSTEM 


PROGRAM  DOCUMENT 

ELMGET 

(SEA) 

11/30/62 


PURPOSE:  To  retrieve  one  variant  element  set  from  VEBLOC 

CALL  SEQUENCE:  (1)  To  Initialize:  (2)  Normal; 

JMP  INITEIW  JMP  EIMSET 

+1H  JMP  (END) 

+2H  (NORMAL) 


INPUTS: 


OUTPUTS: 


STORAGE 

REQUIREMENTS: 


VEBLOC 

LOCEIM  -  C/HLT,  VEBLOC;  C/HLT,  0 
Termination  Indicator  for  VEBLOC  must  be  48/0 


END  -  End  of  VEBLOC 


AXNO 

AYNO 

HXO 

HYO  > 
HZO 
XLO 
CO  J 


(See  VEBLOC  format  for  contents  of  core 


locations) 


8  Cells 


SUBROUTINES : 


Program:  NXSAT  (See  EUNPCK) 


DESCRIPTION; 


It  la  necessary  to  "JMP  INITELM"  only  before  the  first 
"JMP  ElMGET".  INITELM  sets  the  beginning  address  of  VEBLOC.  With  every 
call  of  ElMGET,  this  address  Is  modified  to  retrieve  a  successive  variant 
element  set.  The  maximum  number  of  sets  of  variant  elements  Is  100. 


SIMUUTION  ERROR  ANALYSIS  SYSTEM 


PROGRAM  DOCUMENT 

EU10UT 

(SEA) 

11/30/62 


PURPOSE ; 

To  print  elements  -  Type  A,  B,  C,  or  D 

CALL  SEQUENCE: 

JMP  EUlOUT 

INPUTS: 

EIKTYP  -  OOOOOOON,  N  -  A,  B,  C,  or  D  (BCD) 
EBUF  (Output  Buffer) 

OUTPUTS : 

Contents  of  EBUF 

STORAGE 

REQUIREMENTS: 

149  Cells 

SUBROUTINES : 

Common:  GLOP,  PAGECON,  PANT 

Program:  ELOUTA,  ELOUTB,  ELOUTC,  ELOUTD 

DESCRIPTION: 

This  subroutine  tests  EUILYF  to  determine  which  of  the 
following  program  subroutines  to  use  to  output  the  values  In  EBUF: 


Element 

Type 

A  - 

ELOUTA 

Element 

Type 

B  - 

ELOUTB 

Element 

Type 

C  - 

ELOUTC 

Element 

Type 

D  - 

ELOUTD 

SIMUUTION  ERROR  ANALYSIS  SYSTEM 


PROGRAM  DOCUMEMT 

ELMOUT 

(SEA) 

11/30/62 


(Description  continued) 

Element  Type  Element  Type  Element  Type  Element  Type 

_ A _ B _ _C _ D 


EBUF 

a 

(E.R.). 

X 

(Km) 

a 

(E.R.) 

a 

(E.R.) 

+  1 

e 

y 

(Km) 

e 

e 

+  2 

1 

(Deg) 

z 

(Km) 

1 

(Deg) 

1 

(Deg) 

+  3 

n 

(Deg) 

X 

(m/sec) 

n 

(Deg) 

n 

(Deg) 

+  4 

a> 

(Deg) 

y 

(m/sec) 

cu 

(Deg) 

(Deg) 

+  5 

M 

0 

(Deg) 

z 

(m/sec) 

M 

0 

(Deg) 

M 

0 

(Deg) 

+  6 

C 

0 

(Days /rev) 

C 

0 

(Days /rev) 

C 

0 

(Days/rev) 

(Days /rev) 

+  7 

YYMMDDHH 

YYMMDDHH 

A - 

—A 

A— 

- A 

+  8 

MMSS.SSS 

MMSS.SSS 

A - 

—  A 

A  — 

- A 

+  9 

STAID 

STAID 

+  10 

0 

(Deg) 

4> 

(Deg) 

+  11 

\ 

(Deg) 

\ 

(Deg) 

+  12 

H 

(Km) 

H 

(Km) 

+  13 

Hq 

(Km) 

a 

(E.R.) 

±  14 

e 

e  ’ 

+  15 

1 

(Deg) 

1 

(Deg) 

+  16 

h 

0 

(Deg) 

n 

(Deg) 

+  17 

V 

.  n 

(Deg) 

CD 

(Deg) 

+  18 

\  1 

fNORTrfVy^\ 

h 

0 

(Deg) 

A 

^soutkiaaI 

+  19 

/NSVVWY\\ 

P 

(Km) 

St^wvw\  I 

U 

SIMUUTIOM  ERROR  ANALYSIS  SYTEM 


PROGRilM  DOCUMENT 

ELMPCK 

(SEA) 

11/30/62 


PURPOSE:  To  pack  one  variant  element  set  Into  VEBLOC 

CALL  SEQUENCE:  (1)  To  initialize  (2)  Normal: 

JMP  lELMPCK  JMP  ELMPCK 


INPUTS: 


OUTPUTS: 


LVEBLOC  -  C/HLT,  VEBLOC;  C/HLT,  VEBLOC  +  700 

AXNO  *' 

AYNO 

HXD 

HYO  \ 

/  (See  VEBLOC  format  for  contents  of  core  locations) 

XLO 

CO 

J 

One  set  of  variant  elements  in  VEBLOC  (See  VEBLOC  format) 


STORAGE 

REQUIREMENTS:  39  Cells 


SUBROUTINES:  Common:  GLOP,  PANT,  PAGECON 

DESCRIPTION: 


It  is  necessary  to  "JMP  lELMPCK"  only  before  the  first 
"JMP  ELMPCK".  lELMPCK  sets  the  beginning  address  of  VEBLOC;  with  every 
call  of  ELMPCK,  this  address  is  modified  in  order  to  pack  the  next  variant 
element  set  successively.  100  sets  of  variant  elements  (700  words)  may 
be  stored  in  VEBLOC.  The  variant  element  sets  in  excess  of  100  will  be 
printed. 


SIMUUTIOS  ERROR  ANALYSIS  SYSTEM 


PROGRAM  DOCUMEMT 

BLMREO 

(SEA) 

11/30/62 


PURPOSE:  To  control  the  conversion  of  a  pair  of  element  cards 

into  EBLOC  format. 

CALL  SEQUENCE:  TMA  (WORD) 

JMP  ELMRED 

JAZ  (ERROR) 

INPUTS:  WORD  >  C/HLT,  (Address  of  element  card);  C/HLT,  (Block 

address) 


OUTPUTS:  N,  M  elements,  6,.  ,  t  ,  epoch,  element  type,  in 

EBLOC  o  ° 

STORAGE 

REQUIREMENTS:  209  Cells 


SUBROUTINES:  Common:  ELEMl,  ELEM2,  ETYPA,  ETYPB,  ETYPC,  ETYPD,  SFXFLT, 

SENGET,  STLC,  SEPSUB,  PANT,  CARDER,  PAGEOON,  BCDFD,  ARCTAN, 
ARCSIN,  ARCCOS 

Philco:  FSQRT,  FSIN,  FCOS 

DESCRIPTION: 


The  subroutine  will  validate  the  element  type  (A,  B,  C,  D); 
if  it  is  Invalid,  the  normal  exit  will  be  taken  with  the  A  Reg  -  0  after  an 
error  comment  has  been  printed.  If  it  is  valid,  the  element  cards  will  be 
unpacked  and  converted  to  N  M  elements.  These  will  be  stored  in  EBLOC,  as 
will  the  other  values  given  in  the  EBLOC  format.  The  subroutine  will  then 
set  up  the  output  buffer  (EBUF)  so  that  the  one  of  following  may  be  printed 
by  another  subroutine  ELMOUT: 


1. 

2. 

3. 

4. 


Element  type  A  -  classical  elements 
Element  type  B  -  r,  r  elements 

Element  type  C  -  orbit-station  elements^  classical 
elements,  sensor  coordinates 

Element  type  D  -  radar-oriented  elements,  classical 
elements,  sensor  coordinates 


iTION  ERROR  ANALYSIS  SYSTEM 


PROGRAM  DOCUMENT 

ERPCON 

(SEA) 

11/30/62 


PURPOSE:  To  convert  an  Error  Prediction  (ERPRED)  Control  Card. 

CALL  SEQUENCE:  JMP  ERPCON 

JAZ  (ERROR) 

INPUTS:  Error  Prediction  (ERPRED)  Control  Card 

CCARD  -  See  Description 

OUTPUTS: 

CASETYP 
OTPFLAG 
APMFLAG 
DPVFLAG 
appi 
DELCAPP 
CAPPF 


STORAGE 

REQUIREMENTS:  72  Cells 

SUBROUTINES:  Consnon:  SXSRCH,  CARDER,  PANT 


DESCRIPTION: 


Core  location  CCARD  is  checked  to  see  that  an  ERPRED 
Control  Card  has  not  been  converted  for  the  case.  If  one  has  been 
processed,  the  current  one  will  be  rejected  with  an  error  comment  and 
the  A  Reg  “  0;  if  not,  the  card  will  be  converted.  If  SI  and/or  S2  >  ^ , 
then  SI  and/or  S2  will  be  set  -  3.  The  subroutine  will  then  make  the 
following  tests: 

1.  SI  and  S2  »  0 

2.  SI  or  S2  NEG 

3.  I  NEG 

4.  I  2;  101 

If  any  of  the  above  are  true,  or  if  there  was  an  error  on  conversion,  the 
card  will  be  rejected  with  an  error  comment  and  the  A  Reg  »  0.  If  the  card 
conversion  is  successful.  Bit  5  will  be  set  -  1  in  core  location  CCARD. 


SIMULATION  ERROR  ANALYSIS  SYSTEM 


PROGRAM  DOCUMENT 

ETYPA 

(SEA) 

11/30/62 


PURPOSE:  To  convert  classical  elements  to  N  M  elements. 


CALL  SEQUENCE:  TMA  (WORD) 

JMP  ETYPA 

INPUTS:  WORD  •>  C/HLT,  (Input  Buffer  Address):  C/HLT, (Output  Buffer 

Address) 

Input  Buffer  (all  floating  point): 


+  0 

Not  used 

+  1 

a  (Earth  radii) 

+  2 

e 

+  3 

1  (Deg) 

+  4 

0  (Deg) 

+  5 

0)  (Deg) 

+  6 

M„  (Deg) 

OUTPUTS: 


Output  Buffer  (all  floating  point): 


+  0 
+  1 


Not  used 
a 


+  2 

+  3 
+  4 
-I-  5 
+  6 


o 

h  (Earth  radii) 

X 

o 

h  (  "  ) 

^o 

h,  (  "  ) 

o 

(Radians) 


1/2 

1/2 

1/2 


STORAGE 

REQUIREMENTS:  41  Cells 

SUBROUTINES:  Fhilco:  FSIN,  FCOS,  FSQRT 


DESCRIPTION: 


Three  Input  values  are  validated.  If  an  error  Is  found*  the 
normal  subroutine  exit  is  not  taken,  but  rather  the  exits  indicated.  It  Is 
necessary  to  set  up  error  recovery  at  these  core  locations. 

If  a  <  1.0,  then - ^  ELERRA 

If  e  ^1.0,  then - 7  ELERRE 

If  1  <  0  or  1  >  X  ,  then - ^ELERRI 

Having  successfully  validated  these  quantities,  the  subroutine  will  convert 
classical  elements  to  N  Jf  elements  with  the  formulas  presented  In  the 
initialisation  portion  of  Section  3. 


SIMUUTION  ERROR  ANALYSIS  SYSTEM 


PROGRAM  DOCUMENT 

ETYPB 

(SEA) 

11/30/62 


PURPOSE:  To  convert  r,  f  elements  to  N  M  elements 

CALL  SEQUENCE:  TMA  (WORD) 

JMP  ETYPB 


INPUTS:  WORD  ■  C/HLT,  (Input  Buffer  Address);  C/HLT,  (Output 

Buffer  Address) 


Input  Buffer  (all  floating  point): 

+  0  Not  used 
+  1  X  (Earth  radii) 

+  2  y  (Earth  radii) 

+  3  z  (Earth  radii) 

+  4  X  (Radil/ke"l  min) 

+  5  y  (Radii /ke'l  min) 

+  6  z  (Radii /ke"l  min) 


OUTPUTS: 

Output  Buffer  (all  floating  point): 

+  0  Not  used 
+  1  a 

xno 

+  2  a 

yno  ,/2 

+  3  h  (Earth  radii)  ' 
xo  ,/2 

+  4  h  (Earth  radii) 

1/2 

+  5  h  (Earth  radii) 
zo 

+  6  L^  (Radians) 

STORAGE 

REQUIREMENTS:  100  Cells 


SUBROUTINES:  Common:  ARCTAN 

Philco:  FSQRT 

DESCRIPTION: 

The  subroutine  coverts  r,  r  elements  to  N  M  elements  with 
the  formulas  given  in  Section  3. 


SIMUUTION  ERROR  AHALYSIS  SYSTEM 


PURPOSE: 

CALL  SEQUENCE: 

INPUTS: 


OUTPUTS: 


STORAGE 

REQUIREMENTS: 

SUBROUTINES: 


PROGRAM  DOCUMENT 

ETYPC 

(SEA) 

11/30/62 


To  convert  orbit-station  elements  to  classical  elements 

TMA  (WORD) 

JMP  ETYPC 

WORD  ■  C/HLT,  (Input  Buffer  Address);  C/HLT,  (Out.put 
Buffer  Address) 

Input  Buffer: 

+  0  Not  used 

+  1  H  (Km) 

q 

+  2  e 

+3  i  (Degrees) 

+  4  h^( Degrees) 

+  5  v^( Degrees)  J 

+  6  I^NORTH  A  N§) 

{  KBCD) 

I^SOUTH  A  S^ 

Output  Buffer  (all  floating  point): 


+  0 

Not 

:  used 

+  1 

a 

(Earth  radii) 

+  2 

e 

+  3 

1 

(Degrees) 

+  4 

a 

(Degrees) 

+”5 

CO 

(Degrees) 

+  6 

M 

o 

(Degrees) 

80  Cells 

Common:  ARCSIN,  ARCTAN 
Philco:  FSIN,  FCOS,  FSQRT 


SDBJIATION  ERROR  ANALYSIS  SYSTEM 


PROGRAM  DOCUMENT 

ETYPC 

(SEA) 

11/30/62 

(continued) 


DESCRIPTION: 


Two  Input  quantities  are  validated. If  an  error  is  found, 
the  normal  subroutine  exit  Is  not  taken,  rather  the  exits  Indicated  will 
be  taken.  It  Is  necessary  to  set  up  error  recover  at  these  core  locations. 

If  1  -  0  ,  then  ELERRI 

If  e  ^  1  ,  then  ELERRE 

Having  successfully  validated  these  quantities,  the  subroutine  will  convert 
Orbit -station  elements  to  classical  elements  with  the  formulas  given  In 
Section  3.  During  the  conversion,  it  is  possible  to  find  an  error  in  com¬ 
puting  v^  ,  or  K^.  Therefore  it  Is  necessary  to  set  up  error  recovery 

at  core  locations  UOERR,  BOERR,  KOERR.  These  exits  will  be  taken  if  the  sine 
of  the  respective  angle  Is  >1.  Epoch  time  is  zero  and  is  stored  In  ap¬ 
propriate  core  location. 


SIMUIATION  ERROR  ANALYSIS  SYSTEM 


PROGRAM  DOCUMENT 

ETYPD 

(SEA) 

11/30/62 


PURPOSE:  To  convert  radar  oriented  elements  to  classical  elements. 


CALL  SEQUENCE: 

TMA 

(WORD) 

JMP 

ETYPD 

INPUTS: 

WORD 

>  C/HLT,  (Input  Buffer  Address) 
C/HLT,  (Output  Buffer  Address) 

Input  Buffer  (all  floating  point)  : 

+  0 

Not  used 

+  1 

a  (Earth  radii) 

+  2 

e 

+  3 

1  (Degrees) 

+  4 

fi  (Degrees) 

+  5 

uj  (Degrees) 

+  6 

h  (Degrees) 

0 

RHOO 

Po  (Km)  (F) 

OUTPUTS: 

Output  Buffer  (all  floating  point)  : 

+  0 

Not  used 

+  1 

a  (Earth  radii) 

+  2 

e 

+  3 

1  (Degrees) 

+  4 

n  (Degrees) 

+  5 

w  (Degrees) 

+  6 

(Degrees) 

STORAGE: 

140  Cells 

SUBROUTINES:  Common:  ARCCOS,  ARCTAN 

Phllco:  FSIN,  FCOS,  FSQRT,  FATAN 

DESCRIPTION: 

Three  Input  quantities  are  validated.  If  an  error  Is  found, 
the  normal  subroutine  exit  Is  not  taken,  rather  the  exits  Indicated  will  be 
taken.  It  Is  necessary  to  set  up  error  recovery  at  these  core  locations 


If 

a  < 

1, 

then 

ELERRA 

If 

e  ^ 

1. 

then 

ELERRE 

If 

1  - 

0, 

then 

ELERRI 

SIMUUTION  ERROR  AHALYSIS  SYSTEM 


PROGRAM  DOCUMENT 

ETYPD 

(SEA) 

11/30/62 

(continued) 


(Description  continued) 

Having  successfully  validated  these  quantities,  the  subroutine  will  con¬ 
vert  radar  oriented  elements  to  classical  elements  with  the  formulas 
given  In  Section  3.  During  the  conversion,  It  Is  possible  to  encounter 
>  P  >  P  |cos  V  I  >  1,  Icos  €  I  >  1,  Isin  B  I  >  1,  or 

<  0.  Therefore  It  Is  necessary  to  set  up  the  respective  error  recovery 

locations  ELERRO,  VOERR,  ELERREP,  ELERRDG,  and  ELERRK. 


SIMUIATION  ^BROR  AHALYSIS  SYSTEM 


PfcOCitAM  PeCUMEDT 

EUNPCK 

(SEA) 

11/30/62 


PURPOSE:  To  retrieve  and  unpack  one  element  set  from  EBLOC 


CALL  SEQUENCE: 

JMP 

EUNPCK 

+1H  JMP 

(ERROR) 

+2H 

(NORMAL) 

INPUTS: 

EBLOC 

LOCSAT  - 

C/HLT,  EBLOC 

;  C/HLT, 

0 

OUTPUTS: 

SATN 

HXO 

CO 

ELNO 

HTO 

TO- 

(See  EBLOC  format  for 

AXNO 

HZO 

THGRTO 

contents  of  core  locations) 

AYNO 

XLO 

YY 

MM 

STORAGE 

REQUIREMENTS: 

36  Cells 

SUBROUTINES: 

Program: 

INITSAT,  NXSAT 

DESCRIPTION: 

This  subroutine  uses  "INITSAT"  to  Initialize  retrieval 
and  "NXSAT"  to  retrieve  the  element  set  and  other  values  from  EBLOC. 
The  ERROR  return  Is  obtained  If  the  first  word  of  EBLOC  is  zero, 
indicating  no  elements. 


SIMULATION  ERROR  ANALYSIS  SYSTEM 


PROGRAM  DOCUMENT 

FKLOK 

(SEA) 

11/30/62 


PURPOSE: 


To  read  the  accounting  clock  and  convert  It  to  floating 
point  days 


CALL  SEQUENCE:  JMP  FKLOK 


TAM 

(RESULT  1) 

TQM 

(RESULT  2) 

INPUTS: 

None 

OUTPUTS: 

RESULT  1 

■■  Accounting 

RESULT  2 

>  Accounting 

STORAGE 

REQUIREMENTS: 

11  Cells 

SUBROUTINES : 

Conunon : 

AKLOK,  BCDFD 

clock  -  (floating  point) 

clock  (4-bit  BCD)  -  OYYMMDDHHMM .  M 

t 

Implied  Decimal 


DESCRIPTION: 


The  accounting  clock  reading  is  converted  to  floating 
point  days  since  the  beginning  of  the  year  and  left  in  the  A  register; 
the  accounting  clock  is  left  in  the  Q  register  in  4-bit  BCD. 


SIMULATION  ERROR  AMALYSIS  SYSTEM 


jitocatAM  BocinaaiT 

FLOAT 

(SEA) 

11/30/62 


PURPOSE: 

Process  a 

FLOAT  card 

CALL  SEQUENCE: 

JMP 

FLOAT 

INPUTS: 

XR3  ■  card  location 

OUTPUTS: 

Floating 

correction 

STORAGE 

REQUIREMENTS: 

10  Cells 

SUBROUTINES: 

Conmon: 

SYS: 

SFXFLT 

STRIP 

DESCRIPTION: 

Uses  the  address  in  Col.  9-16,  converted  to  octal,  as  the 
location  to  be  corrected.  Columns  25  to  40  are  converted  to  floating  point 
binary  using  SFXFLT  and  stored  in  the  specified  location. 


SIMULATION  ERBOR  AKALYSIS  SYSTEM _ PROGRAM  DOCUMENT 

GETBL 

(SYS) 

11/30/62 


PURPOSE:  To  set  mode  of  subroutine  SCANON  to  Ignore  or  retrieve 

blanks 


CALL  SEQUENCE: 

(1)  To  retrieve  blanks:  (2)  To  Ignore  blanks: 

JMP  GETBL  JMP  IGBL 

INPUTS:  None 

OUTPUTS:  None 

STORAGE 

REQUIREMENTS:  Part  of  SYS 


SUBROUTINES: 


None 


SDfflLATIOM  ERBOR  ANALYSIS  SYSTEM 


PROGRAM  DbdlBCMT 

OOF 

(SEA) 

11/30/62 


PURPOSE:  To  convert  specified  data  words  to  BCD  suitable  for  output 

purposes  and  output  the  converted  group  using  PANT. 


CALL  SEQUENCE: 


(1)  TMA  CWORD 

JMP.  GLOP.aOP 


This  prepares  specified  data  words  for  printing  and  Jumps 
to  PANT  to  put  the  line  on  msgnetlc  tape. 


(2)  TMA 
JMP 


CWORD 

GLOP.TGLOP 


This 

Jumps  to  TPANT  to  put 


prepares  specified  data  words  for  TTY  punching  and 
image  on  magnetic  tape. 


(3)  TMA 
JMP 


CWORD 

GLOP.PGLOP 


This 

Jumps  to  PFANT  to  put 


prepares  specified  data  words  for  card  punching  and 
image  on  magnetic  tape. 


INPUTS: 


GLOP  uses  an  Indirect  calling  sequence,  l.e.,  the  parameters 
need  not  be  in  line  in  the  user's  coding.  The  control  word  is  of  the  form: 

L  CWORD  C/HLT,0;C/T1JL,FWORD,  Xi 


FWORD  is  the  first  of  a  string  of  format  words  located  in  sequential  core 
locations,  and  Xi  may  be  any  non-counting  index  register,  except  1,2, 3, 4. 
If  the  programmer  desires  to  put  more  than  one  sequence  of  format  words 
together  to  specify  a  line  of  output,  the  code  word  has  the  format: 

L  CWORD  C/TMA,CWORD2;C/TIJL,FWORD2,Xi 


CWORD2  is  the  location  of  another  code  word  of  the  same  form.  When  the  left 
half  of  CWORD  is  zero,  the  end  of  the  string  of  code  wofds  is  signified.  A 
string  of  CWORDa  need  not  be  in  sequential  core  locations. 


SIMULATION  ERROR  ANALYSIS  SYSTEM 


PROGRAM  DOCUMENT 

GLOP 

(SEA) 

11/30/62 

(continued) 


Example 

TMA  _  CWORD  _ 

JMP  GLOP. GLOP 

CWORO  C/TMA.CW0R02:C/TIJL,PW0R0 

CWORD2  C/TMA,CW0R03:C/T1JL,FW0RD2 

CWORD3  C/HLT,0;C/TIJL,FW0RD3 

This  calling  sequence  would  cause  GLOP  to  use  as  format  words  the  three 
strings  beginning  at  locations  FWORO,FWORD2,FWORD3 .  The  strings  of  for¬ 
mat  words  would  be  processed  in  the  order  given.  See  Description  for  the 
details  of  the  format  words. 

OUTPUTS:  A  15  word  output  buffer  (GLOP. BUFF)  moved  to  the  proper 

buffer  in  PANT. 

STORAGE 

REQUIREMENTS:  210  Cells 

SUBROUTINES:  Common:  PANT 

DESCRIPTION: 


The  format  words  specify  the  various  types  of  output  de¬ 
sired  and  how  they  are  to  be  positioned  on  the  line.  In  general,  the  for¬ 
mat  words  are  of  the  form: 

L  FWORD  MODE  P*128  +  F 

FLAG  DATA,  XI 

Location  FWORD  is  the  first  word  of  a  sequence  of  format  words  -  one  word 
for  each  field  on  the  line.  The  parameters  which  must  be  specified  by  the 
format  words  are: 

1.  P  -  the  position  of  the  field  on  the  line. 

2.  F  -  the  number  of  characters  in  the  field. 


SmULATlOH  BMOR  AMALYSIS  SYSTEM 


PBDGRAM  DOCingWT 

GLOP 

(SEA) 

11/30/62 

(continued) 


3.  DATA, XI  -  the  location  of  the  date. 

4.  MODE  -  the  mode  (0  to  6)  of  conversion  to  alphanumeric. 

5.  FLAG  -  the  end  of  the  format  sequence. 

6.  The  scale  factor.  If  a  fixed  point  number  Is  Involved. 

Each  conversion  mode  requires  its  own  parameters;  however,  some  parameters 
are  comoon  to  all  modes  and  will  be  discussed  here. 

The  parameter  F  Is  used  In  all  modes  and  Is  defined  as  the 
right-most  print  position  of  the  data  being  processed.  Its  range  is  0<^^20 
for  hard  copy,  0<F:^0  for  cards,  and  0<P^2  for  teletype.  The  burden  Is  on 
the  user  to  Insure  enough  room  on  the  line  for  the  Information,  without  over¬ 
lap.  If  an  attempt  Is  made  to  put  more  than  one  character  In  any  one  print 
position,  the  last  character  specified  will  be  the  one  used. 

The  end  of  the  format  sequence  Is  Indicated  by  the  command 
In  the  right  half  of  the  format  word,  "FLAG".  If  this  command  Is  "TMA"  the 
GLOP  conversion  continues  with  the  format  word  In  the  next  sequential  core 
location.  If  It  Is  "CAM"  the  sequence  la  terminated  and  GLOP  processes  the 
next  control  word.  This  Is  specified  In  the  left  half  of  the  previous  con¬ 
trol  word.  If  the  left  half  of  the  previous  control  word  was  a  "HLT,0," 
all  conversions  have  been  finished  and  the  line  will  be  transferred  from 
the  line  buffer  to  the  output  buffer.  If  the  left  half  of  the  last  control 
word  was  a  "TMA,  CWOROn",  CWOROn  is  processed  by  GLOP. 

Each  conversion  mode  will  now  be  taken  up  In  turn. 

Mode  0  -  Alphanumeric  Data  -  No  conversion 

Format:  HLT  P*128  +  F 

FLAG  DATA,  Xj 

F  Is  the  number  of  characters  to  be  placed  Into  the  line 
buffer  starting  with  the  first  character  In  location  DATA,  Xj .  The  last 
of  these  characters  will  be  In  position  P.  Xj  may  be  any  non-counting 
Index  register  except  IX,  2X,  3X  or  4X. 


SIMULATION  ERROR  ANALYSIS  SYSTEM 


PROGRAM  DOCUMENT 

GLOP 

(SEA) 

il/30/62 

(continued) 


The  range  of  F<i8  0  F<120. 

Mode  1  -  Fixed  point  binary  to  fixed  point  decitnal. 

Format:  JBT  P  *  128  +  F 

FLAG  DATA,  X< 

D/X 

F  ia  the  number  of  fractional  digits  to  the  right  of  the 
decimal  point,  the  last  being  in  print  position  P.  As  many  places  as  are 
necessary  to  print  the  number,  and  its  sign,  are  taken  to  the  left  of  the 
decimal  point.  The  total  number  of  digits,  both  integral  and  fractional 
may  not  exceed  14, 

X  is  the  scale  factor  of  the  fixed  point  binary  number  in 
location  DATA,Xj.  X«  may  be  any  non-counting  index  register  except  IX,  2X, 
3X  or  4X, 


Mode  2  -  Floating  point  binary  to  fixed  point  decimal . 

Format:  ICOZ  P  *  128  +  F 

FLAG  DATA,  Xj 

The  format  for  Mode  2  is  exactly  the  same  as  for  Mode  1 
except  for  the  scale  factor,  which  is  not  used.  If  F  is  zero,  no  decimal 
point  is  printed. 


Mode  3  -  Fixed  point  binary  to  floating  point  decimal. 

Format:  NOPL  P  *  128  +  F 

FLAG  DATA,  X, 

D/X  ^ 

F  is  the  total  field  size,  with  the  right-most  character 
in  position  P.  The  printed  number  will  look  like  +mmm.  .  .mmn^ee ,  where  m 
is  a  mantissa  digit  and  e  is  an  exponent  digit.  The  field  is  from  the  lead¬ 
ing  sign  to  the  final  e,  and  may  not  exceed  16. 

Only  the  number  of  exponent  digits  required  to  expressed 
the  number  will  be  printed.  If  the  exponent  is  zero,  the  mantissa  takes  the 
entire  field. 


SIMULATION  ERROR  ANALYSIS  SYSTEM 
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(continued) 


X  is  the  scale  factor  of  the  fixed  point  binary  number  In 
location  DATA,  Xj.  X<  may  be  any  non-counting  index  register  excep.t  IX, 

2X,  3X  or  4X. 

Mode  4  -  Floating  binary  to  floating  point  decimal. 

-  Format:  TIO  P  *  128  +  F 

FLAG  DATA,  Xj 

The  format  for  Mode  4  Is  exactly  the  same  as  for  Mode  3, 
with  the  exception  of  the  scale  factor,  which  is  not  used.  , 

Mode  5  -  Fixed  binary  integer  to  decimal  Integer. 

Format:  TCM  P  *  128  +  F 

FLAG  DATA,  Xj 

F  Is  the  number  of  right' shifts  requited  to  scale  the  word 
In  location  DATA,  Xi  47;  l.e.,  If  one  has  an  Integer  in  the  right  half  address 
(scaled  39),  an  F  ot  8  will  cause  the  number  to  be  scaled  47  before  conversion. 
If  the  word  in  DATA,  X.  is  scaled  47,  F  should  be  ■>  0.  The  integer  will  be 
printed  as  a  decimal  Integer  with  the  low  order  digit  In  position  F.  As  many 
characters  as  necessary  will  be  used  to  express  the  number.  Leading  zeros 
or  a  plus  sign  will  not  be  printed;  if  the  number  is  negative,  a  leading 
minus  sign  will  be  printed. 

Mode  6  -  Binary  to  octal . 

Format:  SKC  P  *  128  +  F 

FLAG  «ATA,  Xj 

The  binary  word  will  be  printed  in  octal  in  the  form 
xxxx  xxxx  xxxx  xxxx.  Nineteen  print  positions  are  used.  The  right-most 
octal  digit  Is  placed  In  position  P  .  F  Is  not  used. 


SIMULATION  ERROR  ANALYSIS  SYSTEM 


PROGRAM  DOCUMENT 
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(SEA) 
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PURPOSE : 

CALL  SEQUENCE: 

INPUTS : 

OUTPUTS : 

STORAGE 
REQUIREMENTS : 

SUBROUTINES : 


To  output  page  headings  on  printed  output. 

JMP  HEAD 

None 

Page  eject,  system  page  heading,  2  line  spaces 
54  Cells 

Common :  PANT ,  GLOP 


SIMULATION  ERROR  AMALYSIS  SYSTEM 


PROGRAM  DOCUMENT 

ICARD 

(SEA) 
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PURPOSE:  To  control  the  conversion  of  a  simulation  parameter  card 

into  IBLOC  format. 

CALL  SEQUENCE:  JMP  ICARD 


INPUTS:  XR3  ■  Location  of  card  image 

LIBLOC  -  C/HLT,  IBLOC;  C/HLT,  IBLOC  +  700 
ISTB  -  C/HLT,  IBLOC;  C/HLT,  0  (initially) 

OUTPUTS:  Left  address  of  ISTB  is  incremented  by  7  and  the  ri^t 

address  of  LOCI  is  set  equal  to  it 

ICOUNT  is  Incremented  by  1 

Sets  I  card  bit  (Bit  3  ■  1)  in  core  location  CARDS 


STORAGE 

REQUIREMENTS:  13  Cells 

SUBROUTINES:  Common:  SFARM,  CARDER 

DESCRIPTION: 


The  output  listed  is  obtained  only  if  no  error  is  encountered 
during  card  conversion.  The  maximum  number  of  cards  that  will  be  accepted 
is  100;  those  in  excess  of  100  will  be  rejected  with  an  error  comment. 


Also  see  SPARM. 


SIMUUTION  ERROR  ANALYSIS  SYSTEM _ PROGRAM  DOCUMENT 

IGET 

(SEA) 
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PURPOSE:  To  reti-icMeone  set  of  simulation  parameters  from  IBU)C 


CALL  SEQUENCE:  (1)  To  Initialize: 

(2)  Normal: 

JMP  INITI 

JMP 

IGET 

+1H  JMP 

(END) 

+2H 

(NORMAL) 

INPUTS:  LOCI  -  C/HLT,  IBLOC;  C/HLT,  0 

Termination  indicator  for  IBLOC  must  be  48/0 
EIMTYP  »  OOOOOOOX,  X  -  Element  type  (A,  B,  C,  D) 

IBLOC 

OUTPUTS:  END  -  End  of  IBLOC,  N(»MAL:  A  Reg  =  STAID 

STAID 
OTYPE 
VTYPE 
DIRI 
DIRF 
NUSEG 
SEGNOS 
HI 
HF 

IDELTAT 
ROMAX 

STORAGE 
REQUIREMENTS:  30  Cells 

SUBROUTINES :  None 

DESCRIPTION: 

It  is  necessary  to  "JMP  INITI"  only  before  the  first 
"JMP  IGET",  INITI  sets  the  beginning  address  of  IBLOC.  With  every  call 
of  IGET  this  address  is  modified  to  retrieve  the  next  set  of  simulation 
parameters.  If  EIMTYP  is  not  available,  it  is  necessary  to  "JMP  EUNPCK" 
to  retrieve  it.  EIMTYP  is  tested;  if  it  is  “  C  or  D,  VTYPE  is  made  non¬ 
visual  (~0).  The  maximum  number  of  sets  of  simulation  parameters  is  100. 


(See  IBLOC  format  for  contents  of  core 
locations) 
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PURPOSE;  To  read  the  Accounting  Clock  in  4 -bit  BCD  format. 

CALL  SEQUENCE:  JMP  KLOK 

TAM  (RESULT) 


INPUTS :  None 

OUTPUTS:  Result  -  OYYMMDDHHMM^M  (4-bit  BCD) 

Implied  decimal 


STORAGE 

REQUIREMENTS:  10  Cells 

SUBROUTINES :  None 

DESCRIPTION: 


Since  the  Accounting  Clock  does  not  contain  the  year, 
the  last  two  digits  of  the  year  in  core  location  ZYEAR  is  converted  to 
4-bit  BCD  and  inserted  in  bits  4-11  of  the  result.  ZYEAR  must  be 
updated  yearly. 
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PURPOSE : 


CALL  SEQUENCE: 


To  form  a  least  squares  matrix  and  solve  the  matrix 
equation  Ax  »  B  for  x;  where 


iVi  ••• 

••••LVn 

IVl  1^2  ••• 

••••LVn 

)  B  = 

ZS'n  *  ‘ 

rc  c 

L  n  n 

rc  c  +  1 

L  n  n 

(1)  To  set  n 

TMA  CWORD 

JMP  CHGNXN 


CWORD  -  C/HLTL,  n  (n>^  7) 

(2)  To  initialize  the  routine  (Zero  A  and  B  matrices) 
JMP  LSQ 


This  will  jump  to  a  routine  call  FUNCT  for  the  first 

set  of  terms  C,  to  C  . , 

1  n+1 


(3)  To  add  to  the  matrix  A  and  B 

JMP  LSQR 

C,  to  C  . ,  are  to  be  located  in  cells  TERMS  to  TERMS  + 
1  n+1 

This  will  jump  to  FUNCT  for  the  next  set  of  C's. 

(4)  To  solve  the  matrix  equation 

JMP  LSQS 

Solves  the  matrix  equation,  leaving  the  solution  in 
LSqX  to  LSQX  +  n  -  1. 
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(Continued) 

STORAGE 

REQUIREMENTS:  141  Celle 

SUBROUTINES:  Phllco:  FMAIN,  FMAMU 

DESCRIPTION: 

The  top  half  of  matrix  A  Is  accumulated  at  each  entry  to 
LSQR.  When  entry  Is  made  to  LSQS,  the  terms  pf  A  are  placed  In  the  bottom 
half,  then  entry  Is  made  to  the  standard  Phllco  siatrlx  Inversion  and 
multiplication  subroutines. 
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PURPOSE:  To  control  the  conversion  of  a  standard  deviation  and  bias  card 

Into  SGBLOC  format. 


CALL  SEQUENCE:  JMP  MCARD 

INPUTS:  XR3  >  Location  of  card  Image 

LSGBLOC  -  C/HLT,  SGBLOC;  C/HLT,  SGBLOC  +  900 
SIGSTB  -  C/HLT,  SGBLOC;  C/HLT,  0  (Initially) 

OUTPUTS:  The  left  address  of  SIGSTB  Is  Incremented  by  9  and  the  right 

address  of  LOCSIG  Is  set  equal  to  It . 

SGCOUNT  Is  Incremented  by  1 

Sets  M  card  bit  (bit  4  •  1)  In  core  location  CARDS 


STORAGE 

REQUIREMENTS:  11  Cells 

SUBROUTINES:  Common:  CARDER,  STDEV 

DESCRIPTION: 


The  output  listed  is  obtained  only  if  no  error  is  encountered 
during  card  conversion.  The  maximum  number  of  cards  that  will  be  accepted  is 
100;  those  in  excess  of  100  will  be  rejected  with  an  error  comment. 


Also  see  STDEV 
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PURPOSE:  To  convert  a  Monte  Carlo  (MOCARO)  Control  Card 

CALL  SEQUENCE:  JMP  MCCON 

JAZ  (ERROR) 

INPUTS:  MOCARD  Control  Card 

CCARD 

KMAX  -  D/100(T47) 

OUTPUTS:  K  -  Number  o£  contaminated  observations  to  be  generated  (T47) 

FIRSTRN  -  Beginning  random  number  (T47) 

COFLAG  -  Monte  Carlo  output  option  (T47) 

STORAGE 

REQUIREMENTS:  35  Cells 

SUBROUTINES:  Common:  SFXINT,  CARDER,  PANT 

DESCRIPTION: 

Core  location  CCARD  Is  checked  to  see  that  a  Monte  Carlo 
Control  Card  has  not  been  converted  for  the  case.  If  one  has  been  processed, 
the  current  one  will  be  rejected  with  an  error  comment  and  the  A  Reg  >  0; 

If  not,  the  card  will  be  converted.  K  will  be  tested  to  see  that  it  Is  less 
than  KMAX.  If  It  Is  not,  or  If  there  Is  an  error  on  conversion,  an  error 
comment  will  be  printed  and  the  subroutine  will  exit  with  A  Reg  -  0.  If 
the  card  conversion  Is  successful.  Bit  2  will  be  set  -  1  In  core  location 
CCARD. 
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PURPOSE:  To  compute  position  and  velocity  at  a  specific  time. 

CALL  SEQUENCE:  JMP  MNREP 


INPUTS  (All  floating  point): 

XJGRCF  k  ‘JZ  Ja^ 
e  e 


7/2 

0  or  1.20717162  x  10‘^  - 

min 


CO 

HXO 

HYO 

HZO 

AXNO 

AYNO 

XLO 

T 


Perigee  drag  parameter 

C^ (days/rev) 

Inertial  X  component  of 
angular  momentum 

(Earth  radii)  ^ 
X  • 

min 
e 

Inertial  Y  component  of 
angular  momentum 

^  (Earth  radii) ^ 

^  k  ^  min 

e 

Inertial  Z  component  of 
angular  momentum 

j  (Earth  radii)^ 
k^^  min 

N  component  of  a  =  eP 

®xN 

M  component  of  a  =  eP 

®yN 

Mean  longitude 

L (Radians) 

Elapsed  time  since 
epoch  conditions 

t  -  t^  (min) 

OUTPUTS  (All  floating  point): 

X  Inertial  X  component  of  x  Earth  radii 

position  at  time  t 

Y  Inertial  Y  component  of  y  Earth  radii 

position  at  time  t 
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(continued) 


OUTPUTS  (All  floating  point) :  (continued) 


Z 

XDOT 


YDOT 

ZDOT 


Inertial  Z  component  of  z  Earth  radii 
position  at  time  t 


Inertial  X  component  of 
velocity  at  time  t 

Inertial  Y  component  of 

Inertial  Z  component  of 


.  Earth  radii 

*  - ^ - 

k  min 
e 

y  Earth  radii 
^  min 

Earth  radii 
2  — - 

k  min 
e 


STORAGE 

REQUIREMENTS:  200  Cells 

SUBROUTINES:  Phllco:  FSIN,  FCOS,  FSORT 

DESCRIPTION: 

Given  the  six  orbital  quantities,  a  a  h  ,  h  ,  h  and 

’  ’  xN  yN  X  y  z 

L,  along  with  the  quantities  t  -  tg,  Cq,  and  XJGRCF,  MNREP  will  compute  and 
output  position  r  and  velocity  r.  The  input  quantity,  XJGRCF  »  k  -Ju  Ja|, 
controls  the  method  of  computation  of  x  and  i  (i.e.,  XJGRCF  ■  1.2§717162  x  10 
Includes  the  perturbation  effects  in  the  computation  of  r  and  r,  XJGRCF  ~  0 
bypasses  all  perturbation  effects  and  computes  the  two  body  r  and  r ) .  By 
means  of  initializing  checks,  the  routine  establishes  whether  the  Incoming 
element  set  had  been  used  previously.  If  so.  It  bypasses  a  portion  of  the 
computation  that  would  be  redundant,  thus  saving  computation  time. 


SIMULATION  ERROR  ANALYSIS  SYSTEM _ PROGRAM  DOCUMENT 
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(continued) 


The  formulation  used  In  the  MNREP  subroutine  Is  presented 
below.  Reference  may  also  be  made  to  the  enclosed  flow  diagram  for  the 
logical  sequence  of  computation. 


(1)  Compute  the  preliminary  quantities: 
P„ 


W 

— o 


sin  1 

cos  1 

1 

cos  n 

< 

sin  n 


2  2  2 

h  +  h  +  h'^ 

X  y  z 

o  o  o 


+  a 


P,/(l  -  e^) 


k  Vu  / 
e 

Jl  -  W? 


3/2 


-1 


tan  (sin  1/cos  1)  o  <  1  <  n 
-W  /sin  1 


W  /sin  1 


tan  (sin  n^^/cos  fl^) 


a  (1  -  e  ) 
o  o' 


'  1 


1 


i 


j 


t 

A 
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(continued) 


(2)  For  simplified  general  perturbations  computation, 

l.e.  when  XJGRCF  ^  0,  compute  the  perturbative 

coefficients  c",  k  K'  and  k  L'  : 

e  e  so 


-  -360  n  C 


o  o 

7/2 


k  J*  -  k  J  /p 
e  e  a  *^o 

e 

[3  -  5e^  - 

e  so  e  a  o  o 

e 


cos  1 


/I  3  2. 

2®o^ 


,  2  ...  27  2.1 

sin  i(4  -  -5-  e^)  ] 


In  two  body  computation,  i.e.  when  XJGRCF  >  0,  the  above 
coefficients  are  identically  zero. 


(3)  Compute  the  perturbed  orbital  elements: 


dt 


1-f  c"(t-t^) 


k  /u  /a^^^ 


I 


1  -  a  /a,  FOR  a  >  q 
o  —  o 


,  FOR  a  <  q 


(1  +  e) 

-k  J'  cos  i  ( 1  -  -I  e^) 
e  4 

fi  +  (t-t ) 
o  dt  '  o 
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(continued) 


T '  2  2 

f-  (5  cos^  1  -  1)(1  -  I  e^) 

OJ-CD  -  ^(t-t) 

o  dt  o' 

—  (a  cos  a>  -  a  sin  cu  ) 


—  (a  „  sin  CO  +  a  „  cos  co  ) 
e  xN  s  vN  s 

o  o  '  o 

L  +  (n  +  k  L’  )  (t  -  t  )  +  n  c"  (t  -  t  )' 
o  0  e  so  o  0  0 


(4)  Compute  U  and  the  components  of  the  vectors  M,  N,  W; 


s  in  0  s  in  i 


cos  n sin  i 


cos  i 


-  sin  Ceos  1 


cos  (1  cos  i 


sin  1 


cos  il 


sin  0 


L  -  n,  IF  W  >0 
z  — 

L  +  II,  IF  W  <  0 
z 
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(continued) 


(5)  Compute  (E  -tw)  by  Iteration: 

E  +  03  =  U  +  a  aln  (E  +co)  -  a  cos  (E  +03) 

yN 

(6)  Compute  Che  additional  auxiliary  quantities: 

e  cos  E  -  a  „  cos  (E  +03)  +  a  sin  (E  +03) 
xN  '  '  yN 

e  sin  E  “  a  „  sin  (E  +03)  -  a  „  cos.  (E  +03  ) 
xN  yN 


r  -  a  (1  -  e  cos  E) 
i  ~  (•J\i  a/r)  e  sin  E 

{•JiTi/r)  Jl  - 


rv 


cos  u  ■  — 
r 


cos  (E+03)  -  a„  +  a„ 
'  xN  yN 


/e  sin  E 


1  +V I 


sin  u 


e  sin  E  ' 

sin  (E  +03)  -  a  -  a^  r - Jfi 

\  1  +v  1  >  e  i 


(7)  Compute  the  components  of  Che  unit  vectors  U  and  V: 

U  ■  N  cos  1  +  N  sin  u 
V  ■  -N  sin  u  +  M  cos  u 

(8)  The  position  and  velocity  vectors  are  then  obtained 
directly: 

£  "  r  U-+  x,y,z 

r  -  f  U  +  rv  V  -*  x,y,i 


MNREP 


i 
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PURPOSE:  To  obtain  a  number  randomly  from  a  normal  distribution. 

CALL  SEQUENCE:  JMP  NODN 

TQM  (RESULT) 


INPUTS:  See  Description 


OUTPUTS:  RESULT  ■  Normal  deviate  (Floating  point) 


STORAGE 

REQUIREMENTS:  79  Cells 


SUBROUTINES:  Common:  REDN 


DESCRIPTION: 

Since  this  subroutine  uses  REDN,  It  Is  necessary  to  Initialize 
It  as  required  (see  REDN).  Given  a  random  number  between  0  and  1,  NODN  will 
do  a  table  look>up  and  Interpolation  to  find  the  normal  deviate. 
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PURPOSE:  To  control  the  conversion  of  a  system  observation  card 

(internal  format.  Col  SO  ••  0)  into  OBLOC  or  COBLOC  format. 


CALL  SEQUENCE: 

(1)  For  OBLOC: 

(2) 

For  COBLOC: 

JMP  OBCARD 

JMP  OCCARD 

INPUTS: 

See:  OBSCRD 

OUTPUTS: 

See:  OBSCRD 

STORAGE 

REQUIREMENTS: 

A  Cells 

SUBROUTINES: 

Common:  OOCARD,  OBSCRD, 

COBCRD 

DESCRIPTION: 


OBCARD  modifies  subroutine  OBSCRD  to  accept  system  observa¬ 
tion  cards;  then  transfers  control  to  OBSCRD.  Subroutine  OOCARD  is  used  in 
place  of  OBSERV.  The  OBCARD  entrance  is  used  in  converting  cards  for  OBLOC, 
and  the  OCCARD  entrance  is  used  in  converting  cards  for  COBLOC. 


1 
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PURPOSE:  To  pack  one  simulated  observation  Into  OBLOC 

CALL  SEQUENCE:  (1)  To  Initialize:  (2)  Normal: 


JMP 

lOBPCK 

JMP 

OBPCK 

+  IH 

JMP 

(END) 

+  2H 

(NORMAL) 

INPUTS:  LOBLOC  -  C/HLT,  OBLOC;  C/HLT,  OBLOC  +  3000 

STAID 

OTYPE 

RANGE  (See  OBLOC  format  for  contents  of  core  locations) 

ALPHA 

DELTA 

RODOT 

T 


OUTPUTS:  One  simulated  observation  In  OBLOC  (See  OBLOC  format) 

END  ■  OBLOC  full  (See  Description) 

STORAGE 

REQUIREMENTS:  48  Cells 

SUBROUTINES:  Common:  PANT,  GLOP,  PAGECON 

Program:  OBPCKS,  OBPCKA 

DESCRIPTION: 


It  Is  necessary  to  "JMP  lOBPCK"  only  before  the  first 
"JMP  OBPCK".  lOBPCK  sets  the  beginning  address  of  OBLOC.  With  every  call 
of  OBPCK  this  address  Is  modified  In  order  to  pack  the  next  observation 
successively;  a  program  subroutine  OBPCKS  packs  one  observation.  500  obser¬ 
vations  may  be  stored  In  OBLOC.  Observations  In  excess  of  500  will  be 
printed  by  program  subroutine  OBPCKA. 
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PURPOSE:  To  control  the  conversion  of  a  standard  SPADATS  observa¬ 

tion  card  into  OBLOC  or  COBLOC  format. 

CALL  SEQUENCE:  (1)  For  OBLOC:  (2)  For  COBLOC: 

JMP  OBSCRD  JMP  COBCRD 

INPUTS:  XR3  =  Location  of  card  image 

EBLOC 

( 1)  For  OBLOC  entrance: 

LOBLOC  -  C/HLT,  OBLOC;  C/HLT,  OBLOC  +  3000 

OBSSTB  »  C/HLT,  OBLOC;  C/HLT,.  0  (initially) 

(2)  For  COBLOC  entrance: 

LCOBLOC  •=  C/HLT,  COBLOC;  C/HLT,  COBLOC  +  3000 

COBSTB  -  C/HLT,  COBLOC;  C/HLT  0  (initially) 

OUTPUTS:  (1)  For  OBLOC  entrance: 

Left  address  of  OBSSTB  incremented  by  6  and  right 
address  of  LOOOBS  set  equal  to  it.  OCOUNT  incremented 
by  1 . 

(2)  For  COBLOC  entrance: 

Left  address  of  COBSTB  incremented  by  6  and  right 
address  of  LOCCOB  set  equal  to  it.  COCOIUT  incremented 
by  1 . 

Bit  46  set  to  1  in  location  CARDS  to  indicate  a  successful  read. 

STORAGE 

REQUIREMENTS:  45  Cells 

SUBROUTINES:  Common:  OBSERV,  PANT^  CARDER 
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(continued) 


DESCRIPTION: 


OBSCRD  and  COBCRD  are  similar  subroutines,  differing  only 
as  to  which  block  Is  used  for  output:  OBLOC  (Observation  Block)  or  COBLOC 
(Contaminated  Observation  Block) .  It  la  necessary  for  element  cards  to  be 
entered  before  observation  cards.  If  not,  the  observation  card  Is  rejected 
and  an  error  comment  Is  printed.  Standard  SPADATS  observation  cards  are 
not  allowable  for  element  types  C  and  D;  they  will  be  rejected  with  an  error 
comment  If  encountered.  The  output  listed  Is  obtained  only  If  no  error  Is 
encountered  during  card  conversion.  The  maximum  number  of  cards  that  will 
be  accepted  Is  500;  those  In  excess  of  500  will  be  rejected  with  an  error 
comment . 


Also,  see  OBSERV. 
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PURPOSE : 

To  convert  a  standard  SPADATS  observation  card  into 
OBLOC  or  COBLOC  format. 

CALL  SEQUENCE: 

TMA  (WORD) 

JMP  OBSERV 

JAZ  (ERROR) 

INPUTS : 

WORD  s  C/HLT,  (card  address);  C/HLT  (Block  address) 
EBLOC 

OUTPUTS : 

ERROR  =  Error  on  conversion 

One  observation  entered  in  OBLOC  or  COBLOC 

STORAGE 
REQUIREMENTS : 

109  Cells 

SUBROUTINES : 

Common:  CARDER,  PANT,  SXRSRCH,  BCDFD 

DESCRIPTION: 

This  subroutine  unpacks  SPADATS  observation  cards 
OBLOC  or  COBLOC.  If  an  error  is  found,  a  comment  will  be  printed 
normal  exit  will  be  taken  with  the  A  Reg.  =  0. 


into 
and  the 
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PURPOSE:  To  retrieve  one  simulated  observation  from  OBLOC. 


CALL  SEQUENCE: 


(1)  To  Initialize: 

JMP  INITOBS 


(2)  Normal: 

JMP  OBSGET , 

+1H  JMP  (END) 

+  2H  (NORMAL) 


INPUTS :  OBLOC 

LOCOBS  -  C/HLT,  OBLOC;  C/HLT,  0 
Termination  Indicator  for  OBLOC  must  be  48/0 


OUTPUTS : 


END  •  End  of  simulated  observations 

NORMAL  A  Reg  -  STAID 

STAID 

OTYPE 

RANGE  (See  OBLOC  format  for  contents  of  core  locations) 

ALPHA 

DELTA 

RODOT 

T 


STORAGE 

REQUIREMENTS:  20  Cells 

SUBROUTINES :  None 


DESCRIPTION: 


It  Is  necessary  to  "JMP  INITOBS"  only  before  the  first 
"JMP  OBSGET".  INITOBS  Sets  the  beginning  address  of  OBLOC.  With  every 
call  of  OBSGET  this  address  Is  modified  to  retrieve  the  next  successive 
simulated  observation.  The  maximum  number  of  simulated  observations  Is  500. 
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PURPOSE : 

CALL  SEQUENCE: 

INPUTS : 

OUTPUTS : 

STORAGE 

requirements : 
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To  convert  a  system  observation  card  (internal  format, 
col  80  >  0)  into  OBLOC  or  COBLOC  format 

TMA  (WORD) 

JMP  OOCARD 

JAZ  (ERROR) 

WORD  '  C/HLT,  (Card  address);  C/HLT  (Block  address) 

ERROR  •>  Error  on  conversion 

One  observation  entered  in  OBLOC  or  CO BLOC 


21  Cells 


SUBROUTINES: 


Common:  SXSRCH 
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PURPOSE: 

To  provide  a  central  control  for  printed  output  formats 

CALL  SEQUENCE: 

TMA  (WORD) 

JMP  PAGECON 

INPUTS: 

WORD  -  C/HLT,  (N);  C/HLT,  0,  (N  -  number  of  lines  of 
output) 

OUTPUTS : 

A  Reg  ~  0.  Start  of  new  page. 

STORAGE 

REQUIREMENTS : 

7  Cells 

SUBROUTINES : 

Common:  HEAD,  PANT,  GLOP 

DESCRIPTION: 

This  subroutine  requires  Initialization  by  subroutine 
"PAGEINT"  at  the  start  of  every  Job.  It  Is  recommended  to  use  PAGECON 
at  least  after  every  5  lines  of  output.  To  force  a  new  page,  set  N  ■  70. 
The  subroutine  keeps  a  line  count  for  the  current  output  page.  When  the 
count  18^55,  It  will  eject  the  page,  put  out  a  new  heading,  space  2 
lines,  and  exit  with  the  A  Reg  =  0. 


SIMULATION  ERROR  ANALYSIS  SYSTEM 


PROGRAM  DOCUMENT 

PAGEINT 

(SEA) 

11/30/62 


PURPOSE : 

CALL  SEQUENCE: 

INPUTS : 

OUTPUTS : 

STORAGE 
REQUIREMENTS : 

SUBROUTINES: 

DESCRIPTION: 


To  Initialize  HEAD  and  PAGECON. 

JMP  PAGEINT 

None 

None 


13  Cells 

Common:  AKLOK,  BCDCLK,  HEAD 


This  subroutine  initializes  HEAD  and  PAGECON  in  the 
following  manner: 

1 .  Sets  page  number  to  1 

2.  Uses  Accounting  Clock  to  set  up  BCD  date  and  time  of 
the  start  of  run 

3.  Sets  up  the  case  ID  and  sequence  number 

4.  Outputs  the  first  page  heading  and  sets  the  line  count 


SIMUUTION  ERROR  ANALYSIS  SYSTEM 


PROGRAM  DOClttiENT 

PANT 

(SEA) 

11/30/62 


PANT 

To  edit  output  and  control  writing  of  output  buffers  on 
magnetic  tape . 


806  Cells 
None 


PANT  edits  all  alphanumeric  output  data  properly  for  the 
mode  desired,  accumulates  each  type  In  a  separate  buffer,  writes  out  the 
buffer  onto  magnetic  tape  when  It  Is  full,  and  resets  the  buffer  to  the 
appropriate  filler  characters. 

The  three  modes  of  output  that  PANT  can  edit  are  hard-copy 
(printer)  teletype  (TTY)  and  punched  cards  in  the  code-mode .  The  hard-copy 
is  accumulated  In  PANT,  BUFF;  TTY  in  PANT.BBUF;  and  punched  cards  in  PANT. 
FBUF.  When  processing  the  output  tape  off  line,  hard  copy  Is  in  data  select 
0;  punched  cards  in  data  select  2,  and  teletype  in  data  select  4.  The 
punched  cards  are  in  code-mode  with  the  PCC  (punched  card  controller) set 
to  10  words/card,  12  cards/block,  and  the  "Sense  Control  Characters  Switch" 
set  to  Ignore. 


NAME: 

PURPOSE: 

STCXtAGE 

REQUIREMENTS 

SUBROUTINES: 

DESCRIPTION: 


PANT  contains  all  Its  own  output  processing  logic,  includ¬ 
ing  TIOs  and  skip  check  orders.  Mode  3  writes  are  used  which  will  nor¬ 
mally  handle  parity  and  sprocket  errors.  In  the  case  of  block  marks,  PANT 
rewrites  the  block  and  indicates  via  a  flex  typeout  that  an  Improper  block 
mark  was  encountered.  Duplicate  output  may  result  in  this  case.  Errors 
requiring  operator  action  are  Indicated  on  the  flexowriter.  If  PANT  re¬ 
issues  an  order  ten  times  without  successfully  writing  the  block,  it  will 
rewind  the  output  tape  with  lockout  (no  wrapup) ,  and  type  on  the  flex 
calling  for  a  new  output  tape. 

PANT  has  many  entrances  which  are  explained  in  detail  on 
the  following  pages. 


SIMULATION  ERROR  ANALYSIS  SYSTEM 


CALL  SEQUENCE: 
INPUTS: 

OUTPUTS: 

DESCRIPTION: 

followed  by  an 


PROGRAM  DOCUMENT 

PANT 

(SEA) 

11/30/62 

(continued) 


JMP  PANT. PAGE 
None 

Page  eject  on  hard  copy 


It  places  a  page  eject  in  the  hard  copy  output  buffer 
end-of-llne  control  character. 


SIMUIATION  ERROR  ANALYSIS  SYSTEM _ _ PROGRAM  DOCUMENT 

PANT 

(SEA) 

11/30/62 

(continued) 


CALL  SEQUENCE: 

TMA 

(WORD) 

JMP 

PANT. PINT 

INPUTS: 

WORD 

-  C/HLT,N;C/HLT,  TABLE 

Form  1 

or 

N/XT23 

Form  2 

In  Form  1,  Che  sum  of  TABLE  +  N  Is  the  location  of  a  cell 
containing  Che  desired  tape  number  (0/T23)  Eg  TABLE  +  5 
contains  0/5T23. 

In  Form  2,  X  >  tape  number  desired 

OUTPUTS:  PANT  Initialized  with  buffers  and  counters  all  preset, 

DESCRIPTION: 

PINT  Initializes  all  10  and  skip  check  orders  to  the  tape 
number  specified.  It  also  sets  all  counters  to  Che  beginning  address  of 
Che  three  output  blocks  (BUFF,  BBUF,  PBUF) .  It  also  sets  the  first  word 
of  each  buffer  to  the  proper  data  select  (0  for  printing,  2  for  punched 
cards,  4  for  TTY)  and  Che  remaining  words  In  the  buffer  to  the  proper  fill 
characters . 

PINT  will  destroy  any  Information  contained  In  PANT's 


output  buffers. 


SIMULATION  ERROR  ANALYSIS  SYSTEM 


PROGRAM  DOCUMENT 

PANT 

(SEA) 

11/30/62 

(continued) 


CALL  SEQUENCE:  TMD  (WORD) 

JMP  PANT,  PANT 

INPUTS:  WORD  =  C/HLT,N jC/HLT,BUFFER 

N  “  No.  of  Words 

BUFFER  °  Beginning  address  of  alphanumeric  data 

OUTPUTS:  Alphanumeric  data  in  hard-copy  output  buffer  or  written 

on  magnetic  tape 

DESCRIPTION: 

PANT  moves  N  words  from  Buffer  to  Buffer  +  N  -  1  into 
the  output  buffer  for  hard-copy  (PANT. BUFF) .  When  PANT. BUFF  contains 
113  words  or  more,  PANT  writes  it  on  magnetic  tape,  and  resets  it  to 
fillers  plus  a  data  select  word  and  an  end  of  block  word. 


SIMUUTION  ERROR  ANALYSIS  SYSTEM 


PROGRAM  DOCUMENT 

PANT 

(SEA) 

11/30/62 

(continued) 


CALL  SEQUENCE: 

TMD 

(WORD) 

JMP 

PANT.TPANTA 

or 

JMP 

PANT.TPANT 

INPUTS: 

WORD 

-  C/HLT,  N;C/HLT,  BUFFER 

N  >  No .  of  words 

BUFFER  •  Beginning  address  of  alphanumeric  data 

PANT.TPANT  assumes  N  -  15,  BUFFER  -  GLOP. BUFF 

OUTPUTS:  Alphanumeric  data  on  the  teletype  output  buffer  or 

written  on  magnetic  tape. 

DESCRIPTION: 


PANT  moves  N  words  from  Buffer  to  Buffer  +  N  -  1  Into  the 
teletype  output  buffer  (PANT.BBUF) .  When  PANT.BBUF  contains  127  words 
plus  a  data  select  word,  PANT  writes  It  on  magnetic  tape  and  resets  the 
buffer  to  letters  characters  (37g) . 

If  the  user  wants  to  use  the  same  GLOP. BUFF  output  which 
has  Just  been  put  on  hard  copy  for  teletype  output,  he  should  jump  to 
PANT.TPANT.  This  entrance  assumes  N  -  15,  BUFFER  -  GLOP. BUFF. 

In  order  to  minimize  the  number  of  characters  In  a  line, 
TPANT  will  recognize  a  32g  (filler  character)  as  the  end  of  the  teletype 
line  and  convert  It  to  two  carriage  returns  and  a  line  feed  (555575g)  . 

If  the  user  does  not  have  a  32  In  his  output  data,  TPANT  will  put  the  two 
carriage  returns  and  line  feed  after  the  last  character  of  the  last  word, 
(8th  character  of  Buffer  +  N  -  1) .  When  using  TPANT,  one  should  always 
output  the  32g  character  Immediately  following  the  last  column  used  to 
minimize  the  amount  of  teletype  tape  punched  and  the  amount  of  transmission 
time  necessary  to  send  the  message.  This  Is  especially  Important  when  using 
GLOP. BUFF  either  via  GLOP.TGLOP  or  PANT.TPANT. 


SIMULATION  ERROR  ANALYSIS  SYSTEM 


PROGRAM  DOCUMENT 

PANT 

(SEA) 

11/30/62 

(continued) 


CALL  SEQUENCE:  TMD  (WORD) 

JMP  PANT.PPANT 

INPUTS:  WORD  =  C/HLT,  N;C/HLT,  BUFFER 

N  =  No.  of  words 

BUFFER  =  Beginning  address  of  alphanumeric  data 

OUTPUTS:  Alphanumeric  data  in  the  punched  card  output  buffer  or 

written  on  magnetic  tape  in  proper  format  for  punching. 

DESCRIPTION: 

PPANT  moves  N  words  from  Buffer  to  Buffer  +  N  -  1  into 
the  punched  card  output  buffer  (PANT.PBUF) .  It  then  sets  the  next  "10-N" 
locations  equal  to  blanks.  If  N  is  greater  than  10,  PPANT  only  accepts 
the  first  10  words  of  BUFFER.  When  PANT.PBUF  has  12  card  Images  (or  120 
words  plus  a  data  select  word),  it  is  written  on  magnetic  tape  and  reset 
to  fillers  (32g)  .  Cards  are  punched  with  the  PCC  (punch  card  controller) 
set  at  10  words/card,  12  cards/block,  and  sense  control  characters  to 
Ignore . 


SIMULATION  ERROR  ANALYSIS  SYSTEM _ ’PROGRAM  DOCUMENT 

PANT 

(SEA) 

11/30/62 

(continued) 


CALL  SEQUENCE: 

JMP 

PANT. SPACE 

or 

TMA 

(WORD) 

JMP 

PANT. SPACER 

INPUTS: 

WORD 

-  C/HLT,  N 

N  -  Number  of  spaces  desired 
PANT. SPACE  assumes  N  •  1 
OUTPUTS:  Spaces  on  hard  copy 

DESCRIPTION: 

Puts  N  end-of-line  characters  in  the  output  buffer  in 
PANT  (PANT. BUFF). 


SIMULATION  ERROR  ANALYSIS  SYSTEM 


PROGRAM  DOCUMENT 

PANT 

(SEA) 

11/30/62 

(continued) 


CALL  SEQUENCE: 

JMP 

PANT.TSPACE 

or 

TMD 

(WORD) 

JMP 

PANT.TSPACER 

INPUTS: 

WORD  = 

C/HLT,  N 

N  •  Number  of  spaces  desired 
PANT. SPACE  is  the  special  case  where  N  is  assumed  >  1 
OUTPUTS:  One  or  more  line  feeds  on  teletype  output 

DESCRIPTION: 


The  number  of  line  feeds  specified  are  output  with  a 
double  carriage  return,  preceding  the  last  line  feed.  If  N  «  0,  no 
output  is  done  and  a  normal  return  is  executed. 


SIMUUTION  ERROR  ANALYSIS  SYSTEM 


PROGRAM  DOCUMENT 

PANT 

(SEA) 

11/30/62 

(continued) 


CALL  SEQUENCE:  JMP  PANT. FINISH 

INPUTS :  None 

OUTPUTS:  All  hard  copy  dutput  on  magnetic  tape  with  a  conditional 

stop  character. 

DESCRIPTION: 


If  the  hard-copy  output  buffer  Is  partially  full,  PANT 
writes  It  on  magnetic  tape  and  resets  the  buffer  to  fillers.  Then,  In 
all  cases,  a  conditional  stop  Is  Inserted  and  the  output  buffer  Is  written 
on  tape  and  reset  to  filler  characters. 


SIMULATION  ERROR  ANALYSIS  SYSTEM 


PROGRAM  DOCUMENT 

PANT 

(SEA) 

H/30/62 

(continued) 


CALL  SEQUENCE:  JMP  PANT. TF IN 
INPUTS:  None 

OUTPUTS:  All  TTY  output  on  magnetic  tape  with  a  conditional  stop 

character. 

DESCRIPTION: 

If  the  TTY  output  buffer  la  partially  full,  it  is  written 
on  magnetic  tape  and  reset  to  letters  characters.  Then,  in  all  cases,  a 
conditional  atop  la  inserted  and  the  output  buffer  is  written  on  tape  and 
reset  to  letters  characters. 


I 

E 

E 

i; 

r 

i. 

i; 

t 

i: 

i; 

i; 

i 

i 


CALL  SEQUENCE:  JMP  PANT. PF IN 

INPUTS:  None 

OUTPUTS:  All  punched  card  output  on  magnetic  tape  with  a  conditional 

stop  character. 

DESCRIPTION: 

If  the  punched  card  output  buffer  Is  partially  full,  PANT 
writes  It  on  magnetic  tape  and  resets  It  to  fillers.  Then,  In  all  cases, 
a  conditional  stop  character  Is  Inserted  and  the  output  buffer  Is  written 
on  tape  and  reset  to  filler  characters. 


1, 

E 

I 

I 


I 
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ll 


PROGRAM  DOCUMENT 

PANT 

(SEA) 

11/30/62 

(continued) 


CALL  SEQUENCE:  JMP 

PANT.ALLFIN 

or 

JMP 

PANT.XFIN 

(Conditional  stops) 
(Absolute  stops) 


INPUTS;  None 

OUTPUTS:  All  output  data  on  magnetic  tape  with  absolute  or 

conditional  stops. 


W 


[  1 


DESCRIPTION: 

This  is  equivalent  to  a  jump  to  PANT. FINISH,  PANT.TFIN, 
PANT.PFIN.  If  PANT.XFIN  is  used,  absolute,  rather  than  conditional  stops, 
will  be  output. 


il 

a 

a 

I 

I 

I 

I 

8 

0 
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PROGfcAM  DOCUMEm 

PRINT 

(SEA) 

11/30/62 


PURPOSE: 

CALL  SEQUENCE: 

INPUTS: 

OUTPUTS: 


Output  image  of  Col.  25  to  80  of  PRINT  card  to  hard-copy. 
JMP  PRINT 

XR3  -  card  location 

XR3  -  card  location  -i-  3 
Alphanumeric  data  output. 


STORAGE 

REQUIREMENTS:  4-1/2  Cells 

SUBROUTINES:  Common:  CARDER,  PANT,  PAGECON 

DESCRIPTION: 


Outputs  the  7  words  from  card 
location  9  to  hard-copies,  then  outputs  one 


location  +  3  to  card 
space. 


SIMULATION  ERR(»  ANALYSIS  SYSTEM 


PROGRAM  DOCUMENT 

REDN 

(SEA) 

11/30/62 


PURPOSE:  To  generate  a  random  number. 

CALL  SEQUENCE: 


(1)  To  initialize: 

TMA  (WORD) 

JMP  REDNl 


(2)  Normal: 

JMP  REDN 

TAM  (RESULTl) 

TQM  (RESULT2) 


INPUTS:  WORD  •  First  random  number  of  the  form  4K  1,  K  is  a 

positive  integer  (fixed  point) 

OUTPUTS:  RESULTl  >  Fixed  point  random  number 

RESULT2  ■  Floating  point  random  number 


STORAGE 

REQUIREMENTS:  9  Cells 


SUBROUTINES:  None 


DESCRIPTION: 

It  is  necessary  to  initialize  only  once  for  each  case  or 
for  each  time  a  new  beginning  random  number  is  desired.  REDN  saves  the 
current  random  number  and  uses  it  to  generate  the  next  random  number. 


SDflJUTION  EKROR  ANALYSIS  SYSTEM 


PROGRAM  DOCUMENT 

SCAN 

(SYS) 

11/30/62 


PURPOSE:  To  extract  a  variable  field  on  an  input  card. 

CALL  SEQUENCE: 

(1)  For  first  field: 

JMP  SCAN 

Input  card 

W1  (  BCD  field,  blanks  suppressed,  right  Justified 
W2  I  with  leading  zeros. 

ICHARCT  >  Left  address  -  character  count 

A  Reg  <■  break  character 


Part  of  SYS 
None 


This  subroutine  will  extract  variable  fields  for  columns  25> 
80;  maximum  allowable  field  length  is  16  BCD  characters.  To  extract  the 
first  field,  "JMP  SCAN";  for  successive  fields,  "JMP  SCANON".  The  subroutine 
will  search  field,  suppressing  blanks  and  storing  valid  characters  into  core 
locations  W1  and  W2  until  a  break  character  is  found  (,$./;) .  The  character 
count  is  kept  in  the  left  address  of  core  location  ICHARCT.  Upon  return, 
the  A  register  will  contain  the  break  character,  right  Justified  with 
leading  zeros. 


INPUTS: 

OUTPUTS: 


STORAGE 

REQUIREMENTS: 

SUBROUTINES: 

DESCRIPTION; 


(2)  For  successive  fields: 
JMP  SCANON 


If  blanks  are  desired,  precede  "JMP  SCANON"  by  a  "JMP 
GETBL".  If  blanks  are  desired  on  the  first  field,  move  core  location 
COL25  to  core  location  SCANC,  "JMP  GETBL",  and  begin  with  "JMP  SCANON" 
rather  than  "JMP  SCAN". 


I 

i  ; 


SDflJUTION  ERROR  AHALYSIS  SYSTEM _ PROGRAM  DOCUMENT 

SCARD 

(SEA) 

11/30/62 


PURPOSE:  To  convert  a  sensor  card  into  SBLOC  format. 

CALL  SEQUENCE:  IMA  (WORD) 

JMP  SCARO 

JAZ  (ERROR) 

(NORMAL) 

INPUTS:  WORD  >  C/HLT,  (Card  address);  C/HLT,  (Block  address) 

OUTPUTS:  ERROR  •  Error  on  conversion 

One  sensor  entered  in  SBLOC  - 

STOIAGE 

REQUIREMENTS:  60  Cells 

SUBROUTINES;  Common:  SFXFLT,  SFXFLTA,  CARDER,  PANT 
Program;  SCONV 
Phtlco:  FSIN,  FCOS,  FSQRT 

DESCRIPTION: 

This  subroutine  unpacks  sensor  cards  Into  SBLOC.  It 
also  computes  X/cos  6  and  Z  by  using  program  subroutine  SCONV;  these 
values  are  also  stored  In  SBLOC.  If  an  error  Is  found,  a  comment  will 
be  printed  and  the  normal  exit  will  be  taken  with  the  A  Reg  •  0. 


i! 

[J 
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) 
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SDCJIATION  ERROR  ANALYSIS  SYSTEM 


PHOGBAM  DOCOMKNT 

SDKLOK 

(SKA) 

11/30/62 


PURPOSE:  To  convert  floating  point  days  to  a  BCD  date 

CALL  SEQUENCE:  TMA  (WORD) 

JMP  SDKLCRC 

TAM  (RESULTl) 

TQM  (RESULT2) 


INPUTS:  WORD  ~  Floating  point  days  since  beginning  of  year 

OUTPUTS:  RESULTl  -  AAYYMMDD  (6-Bit  BCD) 


RESULT2  >  Fraction  of  days  (floating  point) 


STORACE 

REQUIREMENTS:  122  Cells 


SUBROUTINES: 


None 


SIMULATION  ERRCTt  ANALYSIS  SYSTEM 


PURPOSE: 

CALL  SEQUENCE: 
INPUTS: 

OUTPUTS: 

STORAGE 

REQUirJEMENTS: 

SUBROUTINES: 

DESCRIPTION: 


PROGRAM  DOCUMENT 

SENCARD 

(SEA) 

11/30/62 


To  control  the  conversion  of  a  sensor  card  Into  SBLOC 
format 

JMP  SENCARD 

XR  3  ••  Location  of  Card  Image 

LSBLOC  -  C/HLT,  SBLOC;  C/HLT,  SBLOC  +  600 

SENSTB  -  C/HLT,  SBLOC;  C/HLT,  0  (Initially) 

The  left  address  of  SENSTB  Is  Incremented  by  6  and  the 
right  address  of  LOCSEN  Is  set  equal  to  It.  SCOUNT  Is 
Incremented  by  1.  Bit  2  of  location  CARDS  Is  set  to  1. 


11  Cells 

Common :  CARDER ,  SCARD 


The  output  listed  Is  obtained  only  If  no  error  Is  en¬ 
countered  during  the  card  conversion.  The  maximum 
number  of  cards  that  will  be  accepted  Is  100.  Those 
In  excess  of  100  will  be  rejected  with  an  error  comment. 


SIHULATICTI  EMIOR  ANALYSIS  SYSTEM 


PROCTAM  1 
SEMGET 
(SEA) 
11/30/62 


PURPOSE:  To  retrieve  eeneor  date  from  SB1X)C. 

CALL  SEQUENCE: 

(1)  To  Inltlelize: 

JMP  INITSEN 


(3)  To  retrieve  a  specific 
sensor : 

TMA  (WORD) 

JMP  SENGET 
+  IH  JMP  (ERROR) 

2H  (NORMAL) 

INPUTS:  LOCSEN  -  C/HLT  SBLOC;  C/HLT,  0 

Termination  Indicator  for  SBLOC  must  be  48/0 

SCOUT  -  C/HLT,  N;  C/HLT,  0  N  -  No,  of  Sensors  In  SBLOC 

WORD  ^^^NNN,  N  ■  Sensor  Number 

SBLOC 

OUTPUTS:  END  >  End  of  SBLOC  ERROR  >  Sensor  not  In  SBLOC 

XLAMBA 

PHIRO 

OALT 

XOVCT  (See  SBLOC  format  for  contents  of  core  locations) 

CAPZ 

STAID 

STCffiAGE 

REQUIREISNTS:  27  Cells 

SUBROUTINES:  None 

DESCRIPTION:  This  subroutine  may  be  used  In  two  ways:  To  retrieve  a 

specific  sensor  or  to  retrieve  the  next  sequential  sensor.  To  retrieve  a 
specific  sensor  use  call  sequence  (3);  no  Initialization  Is  required.  If 
retrieving  sequential  sensors.  It  la  necessary  to  "JMP  INITSEN"  only  before 
the  first  use  of  call  sequence  (2) .  INITSEN  sets  the  beginning  address  of 
SBLOC.  With  every  call  of  SENGCT  (2),  this  address  Is  modified  to  retrieve 
the  next  sensor.  The  maximum  number  of  sensors  is  100. 


(2)  To  retrieve  sensors 
sequentially: 

CA 

JMP  SEMGET 
+  IH  JMP  (END) 

-t-  2H  (NORMAL) 


SIMULATION  ERROR  ANALYSIS  SYSTEM 


PURPOSE; 

To  separate  a  floating  point 
and  fractional  parts. 

CALL  SEQUENCE: 

TMA  (WORD) 

JMP  SEPSUB 

INPUTS: 

W(XID  >  Floating  point  number 

OUTPUTS: 

A  Reg.  -  Integer  (F) 

Q  Reg.  ■  Fraction  (F) 

STORAGE 

REQUIREMENTS; 

18  Cells 

SUBROUTINES: 


None 


PROGRAM  DOCUMENT 

SEPSUB 

(SEA) 

11/30/62 


number  Into  its  Integral 


SIMULATKW  KMtOR  ANALYSIS  SYSTEM 


PROGRAM  DOCUMENT 

SBTJC 

(SEA) 

11/30/62 


PURPOSE: 

To  set 

CALL  SEQUENCE: 

TMA 

JMP 

INPUTS: 

WORD  - 

OUTPUTS: 

XJACF 

STORAGE 

REQUIREMENTS: 

4  Cells 

SUBROUTINES: 

None 

ASCRIPTION: 

the  mode  of  Che  lOlREP  subroutine. 


(WORD) 

SETJC 


(00000000  ) 
'  0000000  A i 
1 00000001^ 

ro 

,1.2071762 


Allow  perturbations 

Suppress  perturbations 

. ^  Suppress  perturbations 
X  10~  (  Allow  perturbations 


The  core  location  XJQICF  is  set  as  a  parameter  for  the 
MNREP  subroutine  to  determine  whether  Che  two'body  or  Che  simplified 
general  perturbations  approach  is  used  for  predicting  orbital  position 
and  velocity. 
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PROGRAM  DOCUMENT 

SFXFLT 

(SEA) 

n/30/62 


PURPOSE: 

CALL  SEQUENCE: 


To  convert  a  BCD  number  to  a  floating  point  number . 


(1) 


If  ^  8  BCD  characters: 


TMQ 

JMP 

JAZ 

TAM 


INPUTS: 


OUTPUTS: 

STORAGE 

REQUIREMENTS: 

SUBROUTINES: 

DESCRIPTION: 


(WORD) 

SFXPLTA 

(ERR(«) 

(RESULT) 


(2)  If  >  8  and  ^  16  BCD 
characters: 


TMA 

TMQ 

JMP 

JAZ 

TAM 


(WORD  1) 
(WORD  2) 
SFXFLT 
(ERR(«) 
(RESULT) 


WORD  ■  ^  8  BCD  Character  number 
WORD  1 
WORD  2 


>  8  and  ^  16  BCD  Character  number 
RESULT  •  floating  point  number 


110  Cells 
None 


The  input  may  be  of  the  following  forms: 

+^XX .  XX 
+XX.  XX  +  NN 
+XX.  XX  E  +  NN 

All  blanks  are  Ignored.  Leading  zeros  are  Ignored; 
trailing  zeros  are  significant. 


SIMWAnOM  KMOR  ANALYSIS  SYSTEM 


PKOOKAM  DOCangHT 

81G6BT 

(SEA) 

11/30/62 


PURPOSE;  To  retrieve  one  set  of  etenderd  deviations  and  biases 

from  SGBLOC. 

CALL  SEQUENCE: 

(1)  To  initialize  (2)  To  retrieve  sequentially: 


JMP  INITSIG 

CA 

JMP 

SIGGET 

+  IH 

JMP 

(END) 

+  2H 

(NORMAL) 

(3)  To  retrieve  specifically: 


TMA 

(WORD) 

JMP 

SIGGET 

+  IH 

JMP 

(ERROR) 

+  2H 

(NORMAL) 

INPUTS:  L0CSI6  «  C/HLT,  SGBLOC:  C/  HLT,  0 

Termination  Indicator  for  SGBLOC  must  be  48/0 


SGCOUNT  - 

C/HLT,  N; 

WORD  -  AAAAA  NNN, 

OUTPUTS: 

END  -  End 

of  SGBLOC 

STAID 

BIASRHO 

SIGRHO 

BIASALF 

SIGALP 

BIASDLT 

SIGDLT 

SIGRRT 

BIASRRT 

ST(ffiAGE 

REQUIREMENTS: 

24  Cells 

SUBROUTINES: 

None 

C/HLT,  ON-  Number  of  sets  in  SGBLOC 
N  -  Sensor  Number 

ERROR  -  Set  not  in  SGBLOC 


(See  SGBLOC  Format  for  contents  of 
core  locations) 


INSCRIPTION: 


This  subroutine  may  be  used  in  tvo  ways:  To  retrieve  one  set  of 
standard  deviations  and  biases  for  a  specific  sensor  or  for  the  next  sequen¬ 
tial  sensor.  To  retrieve  a  set  for  a  specific  sensor,  use  call  sequence 
(3);  no  initialization  is  required.  If  retrieving  a  set  for  sequential  sen¬ 
sors,  it  is  necessary  to  "JMP  INITSIG"  only  before  the  first  use  of  call 
sequence  (2).  INITSIG  sets  the  beginning  address  of  SGBLOC.  With  every  call 
of  SIGGET  (Call  sequence  2)  this  address  is  sodified  to  retrieve  the  next 
set  of  deviations  and  biases.  The  maximum  number  of  sets  is  100. 


SIMUIATION  ERROR  ANALYSIS  SYSTEM 


PURPOSE: 

CALL  SEQUENCE: 

INPUTS: 

OUTPUTS: 

ST(«AGE 

REQUIREMENTS: 

SUBROUTINES: 

DESCRIPTION: 

IBLOC  fornuit . 
error  comment; 


PROGRAM  DOCUMENT 

SPARM 

(SEA) 

11/30/62 


To  convert  a  Simulation  Parameter  Card  Into  IBLOC  format. 

TMA  (WORD) 

JMP  SPARM 

JAZ  (ERROR) 

VKNID  ■  C/HLT,  (Card  addreas);  C/HLT,  (Block  address) 
ERROR  -  Error  on  conversion 

One  set  of  simulation  parameters  entered  In  IBLOC  -  see 
IBLOC  format . 


93  Cells 

Coninon:  CAREER.  SFXFXTA,  SFXFLTA 


The  subroutine  converts  a  Simulation  Parameter  Card  Into 
If  an  error  is  found,  the  card  will  be  rejected  with  an 
the  normal  exit  will  be  taken  with  the  A  Reg  •>  0. 


SIMUUTIOM  ERBOR  ANALYSIS  SYSTEM 


raOGRAK  DOCaigWT- 

SPOUT  1 
(SEA) 

11/30/62 


PURPOSE:  To  output  results  of  e  distribution  of  the  delta  classical 

elements. 

CALL  SEQUENCE:  JMP  SPOUT  1 

INPUTS:  VQ  Table  (from  STOB) 

HBLOC  (from  STOB) 

STCOUNT  (counter  in  STOB) 


OUTPUTS:  Label 

SI,  S2.  NS,  I 

*min,  *max*  ^e»  *o 
Histogram 

STORAGE 

RECREMENTS:  222  Cells 


SUBROUTINES: 


Conmion:  PANT,  GLOP,  PA6EC0N 

Program:  FDOUT 


OESCRlPTICm: 


This  is  a  subroutine  used  by  STOB  to  output  the  results 
of  a  distribution  of  the  delta  classical  elements.  If  C  is  not  corrected, 
it  will  not  be  processed  by  STOB  and  SPOUT  1  will  pript  a  comnent.  FDOUT 
is  a  program  subroutine  to  output  the  histogram;  it  is  also  used  by 
SPOUT  2. 


SIWJLAnOM  ERROR  ANALYSIS  SYSTEM 


PROGRAM  DOCUMENT 

SPOUT  2 

(SEA) 

11/30/62 


PURPOSE:  To  output  results  of  a  distribution  of  the  delta  position 

and  velocity  elements. 


CALL  SEQUENCE:  JMP 


SPOUT2 


INPUTS: 


OPOUTl 
OPOUT2 
Vq  Table 
HBLOC 

OCOUNT,  STCOUNT 

CASETYP 

UNITEST 


(See  STOB) 

(See  STOB) 
(Counters  in  STOB) 
(From  ERP) 

(See  Description) 


OUTPUTS: 


This  subroutine  has  several  output  options: 


(1)  CASETYP  4  2 

OPOUTl  ■  0,  Print  label  epoch,  min.  since  epoch, 

CJ,  emin» 

OPOUTl  4  0,  Print  label,  epoch,  min.  since  epoch,  4  , 

<3,  emlm  egaax,  histogram. 

OFOUT2  ■  0,  Punch  label,  epoch,  min.  since  epoch  4  , 

^In  >  ^max 
OPOUT2  4  0,  None 

(2)  CASETYP  -  2  (Quad.  Analysis) 

STPBLOC  will  be  built,  while 

OP0UT2  will  be  tested  but  OPOUTl  will  be  bypassed  when 

STPBLOC  is  built.  Label,  p,  0,  eg,in,  emair  will  be  printed. 


STORAGE 

REQUIREMENTS:  161  Cells 


SUBROUTINES:  Common:  PANT,  GLOP,  PAGECON,  SPOUTl 

Program:  STVQ,  VQPUNCH,  FDOUT  (See  SPOUTl),  STOUT3 

DESCRIPTION: 


This  is  a  subroutine  to  be  used  by  STOB  to  output  the 
results  of  a  distribution  of  the  delta  position  and  velocity  elements. 
When  this  subroutine  is  used  bv  STOB,  STOB  will  expect 
UNITEST  -  0/5Ti5  for  CPVBLOC 
0/15T15  for  STPBLOC 


as  additional  input. 


SIMDIATIOM  EBROR  AHALY8IS  SYSTEM 


PlOGaAM  DOCUMEHT 

STAB 

(SKA) 

11/30/62 


PURPOSE:  To  Issue  s  single  tsb  or  double  tsb  to  Che  £lexowriter‘i 

CALL  SEQUENCE: 

(1)  For  single  Ceb:  (2)  For  double  Ceb: 

JMP  STAB  JMP  DBLTAB 


INPUTS: 

OUTPUTS: 

STORAGE 

REQUIREMENTS: 

SUBROUTINES: 


None 

Tab  cherscCers  trensmlCted  Co  Che  flexowrlCer. 

4  Cells 
None 


:muution  err(»  analysis  system 


DOCUMENT 


PW 
STDEV 
(SEA) 
11/30/62 


PURPOSE:  To  convert  a  standard  deviation  and  bias  card  (M  card) 

Into  SGBLOC  format. 

CALL  SEQUENCE:  TMA  (WORD) 

JMP  STDEV 

JAZ  (ERROR) 

INPUTS:  W(»0  -  C/HLT  (Card  address);  C/HLT,  (Block  address) 

OUTPUTS:  ERR(A  ■  Error  on  conversion 

One  set  of  standard  deviations  and  biases  entered  In  SGBLOC 

STORAGE 

REQUIREMENTS:  45  Cells 

SUBROUTINES:  Comnon:  SFXFLTA,  CARI£R 

DESCRIPTION: 

This  subroutine  converts  an  M  card  Into  SGBLOC  format. 

If  an  error  Is  found,  the  card  will  be  rejected  with  an  error  comnent; 
the  normal  exit  will  be  taken  with  the  A  Reg  ■  0. 


SIMPUnOW  E8R0R  ANALYSIS  SYSTEM 


PliDGEAM  DoeoMttrr 

STLC 

(SEA) 

11/30/62 


PURPOSE: 

To  retrieve  three  astrodynamlcal  constants  which  vary 
with  the  year. 

CALL  SEQUENCE: 

TMQ  REFYEAR 

JMP  STLC 

INPUTS: 

REFYEAR  ■  OOOOOOOY,  Y  >  Significant  year  digit  in  BCD 
Option:  OOOONNNN,  N  >  Full  year,  tri.th  program  extracting 

the  year  digit 

OUTPUTS: 

THGRO  -  d  (Radians) 

XLSUNO  -  L°  (Radians) 

C3  <*  -C^  (Radians) 

STORAGE 

REQUIREMENTS: 

44  Cells 

SUBROUTINES: 

None 

INSCRIPTION: 

This  subroutine  Is  only  usable  for  the  years  1957  -  1966, 
as  It  Interprets  only  the  last  digit  to  retrieve  the  constants,  l.e., 

8  ->  1958,  1  -»  1961. 


SIHUUTIOM  ERRCTt  ANALYSIS  SYSTEM 


PROGRAM  DOCUHENT 

STOB 

(SEA) 

11/30/62 


PURPOSE:  To  statistically  process  any  sample  size  of  a  set  of 

variant  quantities. 

CALL  SEQUENCE:  TIJ  (WORD) 

TJM  STll 

JMP  STOB 


INPUTS: 


OUTPUTS: 


WORD  ■  Name  of  output  routine 
OCOUNT  -  00000000  (Counter) 

TEST  NS  -  If  NS  >  N,  make  NS  -  N 

VQ  table  must  be  filled  In  as  indicated  by  asterisks 

(STOB  Will  fill  in  other  values)  -  See  attached  format. 
TN  -  Total  no.  of  sets  of  quantities  (D/T47) 

Lable  Table 

Block  of  TN  sets  of  quantities 

M,  £e 

^  r  2 


e  ,  e  ,  and  frequency  distribution  (HBLOC)  also 
see  SPOUTl  and  SP0UT2 


ST(»AGE 

REQUIREMENTS:  377  Cells 


SUBROUTINES;  Common:  SEPSUB,  PAGECON,  PANT 
Program:  ST13 


DESCRIPTION: 


This  subroutine  processes  any  saiiq>le  size  of  a  family 
of  variant  quantities  and  produces  a  statistic  characteristic  of  the  set 
of  quantities.  The  statistic  is  given  in  terms  of  the  mean,  standard 
deviation,  minimum,  maxlsum,  and  frequency  distribution. 

The  label  table  is  a  BCD  list  of  names  describing  the 
quantities  to  be  processed;  BCD  names  should  be  centered  in  the  required 
3  words/name  (This  is  necessary  for  printing  purposea) .  Also  the  names 
should  correspond  sequentially  to  the  quantities  of  the  set  in  the  block. 

The  block  format  la  fixed  by  sets,  i.e.,  (xj.  y,, 

^2’  ^TN*  example  there  are 

sets  of  quantities  wilch  must  be  in  the  floating  point  format. 


(SKA) 

11/30/62 

(continued) 


nSCRimOH:  (continued) 

Mot  ell  quentltlee  In  e  eet  nuet  be  proceeeed.  (VQ  ■¥  21) 
nuet  be  the  number  of  eequentlel  quentltlee  tdilch  tflll  be  proceeeed.  For 
exeaple,  If  there  ere  12  quentltlee  In  eech  eet,  end  the  let,  2nd,  4th, 
end  6th  ere  to  be  proceeeed,  the  celle  would  be  eet  ee  followe: 

VQ  +  18  -  D/12  T15 
VQ  +  21  -  D/6  T15 
VQ  +  24  -  1/110101  T5 

In  euch  e  ceee,  the  lebel  teble  must  conteln  lebele  deecrlbing  the  let 
6  entrlee  in  the  eet,  elthough  it  ie  deelred  to  euppreee  the  3rd  end  5th  ^ 
quentitiee.  Thie  is  neceesery  beceuse  e  comment  ie  printed  perteining 
to  the  euppresaed  quentitiee: (LABEl)  -  "HISTOGRAM  NOT  PROCESSED*'.  If  ell 
12  ere  to  be  processed,  the  lebel  teble  should  have  12  labels  end  the 
cells  would  be  set  as  followe: 


VQ  +  18  -  D/12  T15 
VQ  +  21  -  D/12  T15 
VQ  +  24  -  12/lTll 

The  subroutine  will  first  move  the  appropriate  lebel  to 
VQ  table,  end  then  compute  or  find  the  following  values: 


(1)  If  NS  -  0,  then  NS  -  IN 

If  I  -  0,  then  I  -  1/2  (TN)  +  1 


(2) 

(3) 

(4) 

(5) 


2 

£e  for  NS  quantities 
If  NS  >  1,  then  M  -  ,  V 

If  MS  -  1,  then  u  -  I^e,  O’  -  0 


If  SI  0,  then  e^ 
If  SI  -  0,  then  e^ 


M  •  Sla  Ae 
laex  Q  -S2  a 


of  TN  quantities 


The  subroutine  will  then  exeadne  eech  quantity  end  detenaine  the  cell  in 
the  distribution  in  which  It  belongs.  If  the  quantity  is  less  then  or 
equal  to  a^,  it  will  be  considered  equal  to  e^  end  therefore  entered  in 


SIMUIATION  ERROR  ANALYSIS  SYSTEM 


PROGRAM  DOCUMENT 

STOB 

(SEA) 

11/30/62 

(continued) 


DESCRIPnON;  (continued) 

the  first  cell,  otherwise  the  cell  Is  determined.  The  Integral  part  of 
e  -  e 

_ o  I  0,  If  fractional  part  -  0 

^  ^  Si,  If  fractional  part  ¥  0 

If  the  result  of  this  equation  Is  greater  than  I,  the  quantity  will  be 
considered  as  belonging  In  the  Ith  cell.  The  distribution  is  located 
In  HBLOC  to  HBLOC  +1-1,  HBLOC  +  99  being  the  maximum.  The  subroutine 
will  go  to  the  specified  output  subroutine  after  each  quantity  has  been 
processed  as  none  of  the  results  are  retained  in  core.  After  processing 
all  quantities,  the  subroutine  will  exit.  SPOUT  1  is  the  output  routine 
for  the  DC  distribution,  and  SPOUT  2  for  the  error  prediction  distribution. 


SIMPIATIOH  KBROR  AMALYSIS  SYSTKM 


ggOG^tfl  flOCHWtNT 

SIOB 

(8BA) 

11/30/62 

(continued) 


Location 


Notation 


Deacrlptlon 


Fomat 


VQ  ^ 

Label 

Maximum  of  24  BCD  characters 

BCD 

** 

Label 

Describing  the  quantity  being 

BCD 

*  2  J 

Label 

processed 

BCD 

* 

+  3 

SI 

Standard  deviation  below  the  mean 

F 

* 

*  4 

S2 

Standard  deviation  above  the  mean 

F 

4r 

+  5 

NS 

No.  of  quantities  used  to  compute 
range  of  distribution 

D/T47 

+  6 

NS 

Mo.  of  quantities  used  to  compute 
range  of  distribution 

F 

* 

+  7 

Addresses 

C/HLT,  (LABEL  TABLE);  C/HLT, 

(BLOCK  ADHIESS) 

* 

+  8 

I 

Mo.  of  cells  In  the  frequency 
distribution 

D/T47 

+  9 

e 

0 

Lower  end  of  range  of  distribution 

F 

+10 

Ae 

Width  of  each  cell  in  distribution 

F 

+11 

®iBln 

Smallest  quantity 

F 

+12 

®«iax 

Largest  quantity 

F 

+13 

Mean  of  MS  quantities 

F 

+  14 

a 

Standard  deviation  of  MS  quantities 

F 

+15 

N 

Counter  (Incremented  by  1  until  ■  IN) 

D/T47 

+16 

Se 

Sum  of  TN  quantities 

F 

+17 

Sum  of  squares  of  IN  quantities 

F 

* 

+18 

Block  retrieval  interval  (7,  8,  or  24) 

D/T15 

+19 

NS 

(Same  as  VQ  +  5) 

D/T39 

+20 

I 

(Same  as  VQ  +  8) 

F 

* 

+21 

Mo.  of  sequential  quantities  to  be 
processed  (6,  7,  8,  24) 

D/T15 

+22 

Current  cell  In  distribution  to  be 
Incremented 

F 

+23 

(Same  as  VQ  +  7  -  but  modified) 

It 

+24 

Bits  (left  Justified)  ■  quantities  to 
process  (1  ■  yes  0  ■  no\ 

SIMULAnW  ERROR  ANALYSIS  SYSTEM 


PURPOSE: 

CALL  SEQUENCE: 

INPUTS: 

OUTPUTS: 

STORAGE 

REQUIREMENTS: 

SUBROUTINES: 


PROGRAM  DOCUMENT 

STRIP 

(SYS) 

11/30/62 


To  delete  blanks  from  a  BCD  word. 

OMQ  (W(»D) 

JMP  STRIP 

TAM  (RESULT) 

VK%0  -  8  characters  possibly  containing  blanks 
(example:  AT  A  ES  A  OA  ) 

RESULT  >  Word,  all  blanks  removed,  right  justified  with 
leading  zeros. 

(Exao^le:  0000  TEST) 


Part  of  SYS 
None 


SIMtJUnON  EBBiOR  ANALYSIS  SYSTEM 


PROGRAM  DOCUMiMT 

SXSRCH 

(SEA) 

11/30/62 


PURPOSE: 

To  aid  in  processing  input  cards 

CALL  SE(^CE: 

TMA  (WORD) 

JMP  SXSRCH 

JAZ  (ERROR) 

INPUTS: 

WORD  >  C/HLT,  0;  C/HLT,  (Address  of  format  word  list) 
See  description  for  format  word  list. 

OUTPUTS: 

See  Description 

ST(»AGE 

REQUIREMENTS: 

91  Cells 

SUBROUTINES: 

Common:  CARDERB,  PAGEC(»<,  SFXINT,  SFXFLT,  PANT. 

DESCRIPTION; 

The  format  word  list  is  a  set  of  parameters  used  to  unpack, 
convert,  and  store  specified  fields  (max.  -  16  col)  on  input  cards.  A 
format  word  has  the  form: 


C/(Command  1),  (Address  1);  0/ (Command  2),  (Address  2) 


Command  1 


if  alphanumeric  conversion  desired 
If  fixed  Integer  conversion  desired 
if  floating  point  conversion  desired 


Address  1 

Command  2 
Address  2 


P  *  128  +  F,  P  ■  last  column  in  field,  0<Ps  80 

F  «  no.  of  columns  in  field,  0  <F^  16 

j TMA,  for  all  format  words  except  the  last 
^CAM,  if  last  format  word  in  list 

Location  in  which  converted  field  is  to  be  stored 


Alphanumeric  conversion  leaves  data  right  Justified, 
preceded  by  blanks.  If  F  ^8,  only  one  word  will  be  stored  in  Address  2. 
If  F>8,  two  words  will  be  stored  in  Address  2  and  Address  2+1. 

Fixed  Integer  Conversion  leaves  a  fixed  binary  Integer 
T47  in  Address  2.  The  conversion  will  terminate  on  a  decimal  point, 
therefore  ^^75. 62,  aaa  75.0,  and  /vwna  75  will  all  convert  as  0/75. 
Preceedlng  +  or  -  signs  are  allowed. 


SIMHUTION  ERROR  ANALYSIS  SYSTEM 


PROGRAM  DOCUMENT 

SXSRCH 

(SEA) 

11/30/62 

(continued) 


DESCRIPTION:  (continued) 

Floating  point  Conversion  leaves  a  floating  point  number 
In  Address  2  with  one  exception:  If  the  field  specified  Is  all  blanks, 
Address  2  will  contain  OCTAL  0.  Input  can  be  any  of  the  following  formats. 

tXXXX.XXX 

txxm 

+xx.xxmxxx 

tXXX.XXXEfXXX 

All  preceding,  Imbedded,  and  following  blanks  will  be 
suppressed  In  both  fixed  and  floating  conversion.  Preceding  zeros  will 
also  be  suppressed.  Therefore,  0  4-  10  will  convert  as  D/10  or  F/10. 
Depending  on  the  type  of  conversion  specified. 

If  an  error  occurs  on  any  field,  SXSRCH  will  print  the 
diagnostics  before  returning  control.  The  entire  card  Is  always  converted. 


VECARO 

(SEA) 

11/30/62 


PURPOSE:  To  convert  e  pelr  of  variant  element  cards  into  VEBLOC 

format. 

CALL  SEQUENCE:  IMA  (WORDl) 

THQ  (W0RD2) 

JMP  VECARD 
JAZ  (ERROR) 

INPUTS:  UORDl  -  C/HLT,  (Card  1  address);  C/HLT,  0 

W(»U)2  -  C/HLT,  DEBLOC;  C/HLT,  VEBLOC  ■ 

OUTPUTS:  ERROR  ■  Error  on  conversion 

One  set  of  N  M  elements  in  VEBLOC 
One  set  of  classical  elements  in  DEBLOC 

STORAGE 

REQUIREMENTS:  56  Cells 

SUBROUTINES:  Common:  ELMRED,  ELEMl,  ELEM2,  ETYPA,  ETYPB,  ARCTAN, 

ARCOOS 

KSCRIPTKW: 

The  subroutine,  will  unpack  cards  1  and  2;  if  an  error 
occurs  a  comment  will  be  printed  and  the  normal  exit  will  be  taken  with 
the  A  Reg  -  0.  Having  unpacked  the  cards,  the  subroutine  checks  the 
element  type  to  see  that  it  is  either  A  or  B;  if  not,  the  above  error 
procedure  is  followed.  The  input  elements  are  converted  to  N  M  elements 
and  stored  in  VEBLOC.  Corresponding  classical  elements  are  stored  in 
DEBLOC;  these  will  be  used  later  to  create  a  true  delta  element  block 
(DEBLOC)  .  The  maximum  number  of  sets  of  elements  in  VEBLOC  and  DEBLOC 
is  100. 


SIMULATION  ERROR  ANALYSIS  SYSTEM 


PROGRAM  DOCUMENT 

INXTCON 

(SYS) 

11/30/62 


PURPOSE: 

To  retrieve  next  control  line 

CALL  SEQUENCE: 

JMP  INXTCON 

INPUTS: 

Magnetic  tape,  paper  tape,  or  flexowriter 
CONBITS 

OUTPUTS: 

See  Description 

ST(ffiAGE 

REQUIREMENTS: 

Part  of  SYS 

SUBROUTINES: 

None 

DESCRIPTION: 

This  subroutine  puts  the  next  control  line  from  the 
flexowriter,  paper  tape,  or  magnetic  tape  into  core  locations  CONLIME 
through  CONLINE  +  9 . 

(1)  Magnetic  tape  •  Blank  cards  are  ignored 

(2)  Flexovnriter  -  First  parameter  CONLINE  +  1  (Left  Justified) 

Second  parameter  CONLINE  +  2  (Left  Justified) 
Etc. 

(3)  Paper  tape  -  Same  as  Flexowriter 

INXTCON  uses  bits  1-15,  21-23,  42-47  of  "CONBITS”,  therefore  the  user 
program  must  insure  that  "CONBITS"  is  properly  set  for  its  purposes. 


SIMUUnOM  EKROR  AHALYSIS  SYSTEM _ PHOGRAM  DOCUMENT 

ITYPOUT 

(SYS) 

11/30/62 


PURPOSE: 

To  transmit  Information  to  the  flexowriter. 

CALL  SEQUENCE: 

TMA  (NORO) 

JMP  ITYPOUT 

INPUTS: 

VX^-C/HLT,  (Beginning  address  of  comment);  C/HLT, 
of  words) 

OUTPUTS: 

Flexowriter  output 

STORAGE 

REQUIREHENTS: 

Part  of  SYS 

SUBROUTINES: 

None 

DESCRIPTION: 

This  subroutine  will  transmit  N  words  to  the  flexowriter; 
words  of  trailing  blanks  are  suppressed.  However,  it  will  not  issue 
carriage  returns,  tabs,  upper  and  lower  case  shifts. 


SIMUUTION  ERROR  ANALYSIS  SYSTEM 


PROGRAM  DOCUMENT 
SFXINT 
(SEA) 

11/30/62 


PURPOSE:  To  convert  BCD  numbers  to  fixed  point  binary  integers. 


CALL  SEQUENCE: 


INPUTS: 


TMA  (wmo  1) 

TMQ  (WORD  2) 
JMP  SFXINT 
JAZ  (ERROR) 
TQM  (RESULT) 


WC»0 
WORD  2 


0 


16  character  BCD  number 


OUTPUTS:  RESULT  -  fixed  point  binary  integer  (T  47) 


ST(ffiAGE 

REQUIREMENTS:  110  Cells 


SUBROUTINES:  None 


DESCRIPTICW: 


All  blanks  are  ignored.  Only  leading  zeros  are  Ignored; 
trailing  zeros  are  significant.  The  conversion  will  terminate  upon  comple¬ 
tion  of  converting  16  BCD  characters,  or  finding  a  decimal  point.  If  a 
decimal  point  is  found,  the  result  in  the  Q  register  will  be  the  integral 
part  of  the  number  entered.  The  accumulator  will  not  be  zero  in  this  case 
(1 .e.  no  error) . 


SIMUUTION  ERROR  ANALYSIS  SYSTEM 


PROGRAM  DOCUMENT 


SECTION  6 

SYSTEM  BLOCK  FORMATS 


The  data  read  into  the  Simulation  Error  Analysis  System  and  much 
of  the  information  subsequently  generated  must  be  readily  accessible  to 
the  various  parts  of  the  system.  For  this  reason,  several  blocks  of  data 
are  defined  in  high  speed  core  storage.  These  blocks  have  been  assigned 
specific  formats  which  are  described  herein,  each  under  its  particular 
block  designation.  The  formats  specify  the  words  as  floating  point  numbers 
and  BCD  characters.  In  general,  the  BCD  characters  are  six  bit  characters 
yielding  eight  per  word.  Blank  characters  are  designated  by  the  symbol  A. 

In  several  instances,  the  blocks  have  an  associated  retrieval 
routine  (see  Subroutine  Section  for  details),  which  will  pick  a  desired 
entry  from  the  block  and  place  the  data  in  assigned  core  locations. 

These  assigned  locations,  which  are  not  necessarily  consecutive,  and  the 
corresponding  retrieval  routines  are  included  where  applicable.  There 
are  a  few  blocks  which  have  no  retrieval  routines  as  such,  but  which  have 
assigned  storage  locations  where  the  associated  quantities  may  be  placed 
by  the  user.  Other  blocks  have  assigned  storage  locations  with  the  block 
Itself,  and  may  be  referred  to  directly  by  these  assignments. 

Figure  6-1  displays  the  storage  assignments  for  all  of  the  core 
block  reservations.  Storage  assignments  are  also  shown  for  the  other 
system  components. 


6-1 


Use 


Octal 

Size 


0 

1000 


6671 

11151 


14562 

15713 

17520 

21015 

21032 

22327 

23624 

25265 

27165 


46262 

52661 

53402 

57024 

57704 

61505 


70517 

72666 

76605 

77420 

77560 

77647 

77777 


Decimal 

Equiv. 


SYS 

OB  LOG 


COBLOC 

TBLOC 


•SBLOC 
•SGBLOC 
■  IB  LOG 
-EBLOC 
-VEBLOC 
DEBLOC 


lOOOg 

5671 


5671 

2261 


1131 

1605 

1275 

15 

1275 

1275 


POBLOC  22434 
STPBLOC  1700 
DPVBLOC  1441 


•1 


10 


512 

3001 


3001  I 
1201  i 

601  [ 
901  ‘ 
701 
13  -[ 
701  .1 
701 

9500 
960 
801 


Not  used 

4401 

2305 

Philco  Subs 

521 

337 

Exec 

3422 

1810 

OBSIM 

660 

432 

AQTINT 

1601 

897 

Common 

7012 

3594 

Sub. 

ERPRED 

2147 

1127 

DC 

3717 

1999 

MOCARO 

613 

395 

INTERFl 

140 

96 

CONTROLl 

67 

55 

DCDIST 

131 

89 

FIGURE  6-1 

CORE  ALLOCATION 
6-2 


SIMULATION  ERROR  AKALYSIS  SYSTEM 


PROGRAM  DOCUMENT 
COBLOC 


BLOCK  FORMAT; 


A  A  A  0  N  N  N 


COBLpC 


48  bit  floating  point 


48  bit  floating  point 


48  bit  floating  point 


48  bit  floating  point 


48  bit  floating  point 


etc.,  repeating  above 
data  for  each  observation 
to  a  maximum  of  3000  core 
locations 


■0 


+0 

+1 

+2 

+3 

+4 

+5 


0  «  Control  Character,  0  =  Obser¬ 
vation  Typre ,  N  =  Sensor 
Number 

p  =  Range  (Earth  radii) 

A,  01  =  Azimuth  or  Right  Ascension 
(Rad) 

h,  6  •  Elevation  or  Declination  (Rad) 
p  =  Range  rate  (Earth  radii/k^^  min) 
t  =  Time  since  epoch  (Minutes) 

Data  block  Is  variable  in 
length,  but  must  be  ended 
with  a  word  of  zeros 


BLOCK  GENERATION:  COBLOC  is  generated  in  the  MOCARO  unit.  It  also  may 

be  generated  for  sequences  which  read  in  observation 
cards.  In  these  cases,  COBLOC  Is  generated  by  the 
OCCARD  subroutine  for  system  observation  cards  or  by 
the  COBCRD  subroutine  for  SPADATS  observation  cards. 


SMJUTION  ERROR  ANALYSIS  SYSTEM 


PROGRAM  DOCUMENT 

COBLOC 

(continued) 


BLOCK  RETRIEVAL:  Entries  in  COBLOC  can  be  retrieved  sequentially  or 

by  sensor  number  by  the  COBGET  subroutine.  An  entry 
to  INITCOB  is  required  in  order  to  initialize  COBGET 
for  the  first  COBLOC  entry.  Each  reference  to  COBGET 
will  retrieve  the  next  COBLOC  observation  entry  if 
the  sensor  number  is  not  specified,  placing  the  data 
in  the  following  core  locations  and  word  formats: 


A 

A 

A 

A 

A 

N 

N 

N 

0 

0 

0 

0 

0 

0 

oox 

XXX 

48  bit 

floating  point 

48  bit 

floating 

point 

48  bit 

floating  point 

48  bit 

floating  point 

48  bit 

floating  point 

STAID 

OTYPE  -  Bits  44-47  Set  -  0,  1 
(See  Note) 

RANGE  -  Earth  radii 

ALPHA  -  Radians 

DELTA  -  Radians 

RODOT  -  Earth  radii/k  ^  min 
e 

T  -  Minutes 


NOTE: 


OTYPE  has  bits  44-47  set  to  1  if  the  corresponding 
quantities  were  simulated. 


SIMULATION  ERROR  ANALYSIS  SYSTEM 


PROGRAM  DOCUMENT 
DEBLOC 


BLOCK  FORMAT: 


DEBLOC 


48  bit  floating  point 

+0 

Aa 

(Earth  radii) 

48  bit  floating  point 

+1 

Ae 

48  bit  floating  point 

+2 

Ai 

(Radians) 

48  bit  floating  point 

+3 

Aa 

(Radians) 

48  bit  floating  point 

+4 

A  w 

(Radians) 

48  bit  floating  point 

+5 

AM^ 

0 

(Radians) 

48  bit  floating  point 

+6 

AC 

0 

2 

(Days /Rev  ) 

etc.,  repeating  above  data 
to  a  maximum  of  700  core 
locations  (100  sets) 

) 

Data  block  is  variable  in 
length  but  must  be  ended 
with  a  word  of  zeros 

0  . — . — . . .  >  0 

BLOCK  GENERATION:  DEBLOC  is  generated  Internally  by  the  SGPDC  unit. 

In  SEAS  it  is  generated  by  the  PREERP  program 
which  controls  the  reading  of  Element  and  Variant 
Element  cards.  In  both  cases  the  values  are  the 
result  of  variant  elements  minus  nominal  elements 


SIMUUTION  ERROR  ANALYSIS  SYSTEM 


PROGRAM  DOCUMENT 

DEBLOC 

(continued) 


BLOCK  RETRIEVAL:  Entries  in  DEBLOC  are  retrieved  sequentially  by  the 

DELGET  subroutine.  An  entry  to  INITDEL  is  necessary 
to  initialize  DELGET  to  begin  with  the  first  set  of 
delta  elements.  Each  entry  to  DELGET  will  retrieve 
the  next  set  of  data  and  place  it  in  the  following 
core  locations  and  word  formats: 


48  bit  floating  point 


48  bit  floating  point 


48  bit  floating  point 
48  bit  floating  point 


48  bit  floating  point 


48  bit  floating  point 


48  bit  floating  point 


DEU 

A  a  (Earth  radii) 

DELE 

Ae 

DELI 

A i  (Radians) 

DELNOD 

AO  (Radians) 

DELOM 

Att^  (Radians) 

DELMO 

A  Mq (Radians) 

DELCO 

2 

^  C  (Days /Rev  ) 

SIMUUTION  ERROR  ANALYSIS  SYSTEM 


PROGRAM  DOCUMENT 
DPVBLOC 


BLOCK  FORMAT; 

DPVBLOC 

48  bit  floating  point 
48  bit  floating  point 
48  bit  floating  point 
48  bit  floating  point 
48  bit  floating  point 
48  bit  floating  point 
48  bit  floating  point 
48  bit  floating  point 


etc.,  repeating  above  data 
to  a  maximum  of  800  words 
(100  sets) 


+0 

Ax 

u 

o 

(Earth  radii) 

+1 

Ay 

(Earth  radii) 

+2 

Az 

(Earth  radii) 

+3 

l^x  1 

|A£| 

(Earth  radii) 

+4 

Ax 

(Earth  radii/k^^  min) 

+5 

Ay 

Dv 

(Earth  radii/kg^  min) 

+6 

Az 

(Earth  radli/k^^  min) 

+7 

l^i  1 

|A£  I 

(Earth  radii/k^^  min) 

Data  block  is  variable  in  length, 
but  must  be  ended  with  a  word  of 
zeros . 


BLOCK  GENERATION; 


DPVBLOC  is  generated  by  the  ERP  program  unit.  The 
contents  of  the  block  may  be  determined  by  .testing 

core  location  OTPFLAG;  OTPFLAG/"®  )  . 


BLOCK  RETRIEVAL; 


No  retrieval  subroutine  exists  for  this  block. 


SIMULATION  ERROR  ANALYSIS  SYSTEM 


PROGRAM  DOCUMENT 
EBLOC 


BLOCK  FORMAT: 


EBLOC 


A 

A 

A 

N 

N 

48  bit  floating  point 


48  bit  floating  point 


48  bit  floating  point 


48  bit  floating  point 


48  bit  floating  point 


48  bit  floating  point 


48  bit  floating  point 


48  bit  floating  point 


48  bit  floating  point 


BCD 


BCD 


0  f- 


0 


+0 

E  « 

A  * 

Control  Character,  T  -  Element  Type 
Element  Number,  N  «  Satellite  Number 

+1 

*xNo 

+2 

*yNo 

+3 

h 

xo 

(Earth  radll)2 
kg  min 

+4 

h 

yo 

'  (Earth  radll)^ 
k“ ^mln 

+5 

h 

zo 

(Earth  radll)^ 
k“^ln 

+6 

L 

0 

(Radians) 

+7 

C 

0 

(Days /Re v^) 

+8 

t 

0 

=  Time  from  beginning  of  year  to  epoch 
(Days) 

+9 

®to 

=  Greenwich  Sidereal  time  at  epoch 
(Radians) 

+10 

+11 

YYMMDDHH  (blank  If  element 

M  M  S  S  •  SSS  J  ^ 

+12 

Data  block  Is  fixed  length  (13  words) 


BLOCK  GENERATION:  EBLOC  Is  generated  In  the  EXEC  unit  by  the  ELMRED 

subroutine.  Element  cards  1  and  2  are  Interpreted 
and  converted  to  N  M  elements,  t^  and  are 
computed,  and  EPOCH  time  Is  transferred  from  Element 
Card  2  to  this  block.  Only  one  set  of  elements  Is 
allowable  for  each  job. 


I 


1 

J  SIMULATION  ERROR  ANALYSIS  SYSTEM 


PROGRAM  DOCUMENT 
EBLOC 

(continued) 


BLOC3C  RETRIEVAL:  Entries  In  EBLOC  are  retrieved  by  the  EUNFCK  subroutine. 

Since  there  Is  one  set  of  elements,  Initialization  of 
the  routine  Is  unnecessary.  This  routine  places  the 
data  In  the  following  core  locations: 


L 

i; 

r 


i 

4  . 


i 


1 


1 


A 

A 

A 

A 

A 

u 

N 

N 

0 

0 

0 

0 

0 

A 

A 

A 

"o' 

0 

0 

0 

0 

0 

T 

0 

0 

0 

0 

0 

0 

0 

Y 

48  bit 

floating 

point 

48  bit 

floating  point 

48  bit 

floating  point 

48  bit 

floating  point 

48  bit 

floating  point 

48  bit 

floating  point 

48  bit 

floating  point 

48  bit 

floating  point 

Y 

Y 

M 

M 

D 

D 

H 

H 

M 

M 

S 

S 

• 

S 

S 

S 

48  bit 

floating  point 

SATN 

ELNO 

ELMTYP 

REFYEAR 

AXNO 

AYNO 

HXO 

HYO 

HZO 

XLO 

CO 

EPOCH 

YY 

MM 

THGRTO 


Satellite  Number 
Element  Number 
Element  Type 

Year  of  epoch 


(Earth  radll)^ 

k  ^  min 
e 

(Earth  radll)^ 

k  ^  min 
e 

(Earth  radll)^ 

k  ^  min 
e 

(Radians) 

2 

(Days/Rev  ) 

Same  as  TO  (Days) 


0 


to 


(Radians) 


1 


SmUUTION  ERROa  ANALYSIS  SYSTEM 


PROGRAM  DOCUMENT 
IBLOC 


I 


BLOCK  FORMAT: 


IBLOC 


I 

A 

A 

V 

N 

N 

N 

+0 

I » 
0  « 

Control  Character,  V  ■  V  Type, 

0  Type ,  N  -  Sensor  Number 

-■ 

48  bit 

floating 

soint 

+1 

‘'i 

= 

Initial  elevation  (Radians)*^  + 

-  AM 

48  bit 

floating  point 

+2 

‘'f 

- 

Final  elevation  (Radians)  J  - 

-PM 

48  bit 

floating  point 

+3 

*^max 

Maximum  range  (Earth  radii) 

i 

48  bit 

floating  point 

+4 

At 

- 

Observation  Interval  (Minutes) 

- 

0  0 

0 

0  X 

XXX 

X 

X  X 

X 

+5 

X 

= 

Segments  to  use  (4  Bit  BCD) 

- 

0 

» 

N 

+6 

N 

- 

Number  of  segments 

etc.,  repeating  data 
for  each  sensor  to  a 
maximum  of  700  core 
locations 

Data  block  Is  variable  In  length 
but  must  be  ended  with  a  word  of 

zeros . 

n  A _ _ ^  n 

7 

- 

BLOCK  GENERATION;  IBLOC  Is  generated  In  the  EXEC  unit  by  subroutine 

ICARD.  All  of  the  quantities  are  Input  on  Simulation 
Parameter  cards  (I  cards)  . 


] 

] 

I 

I 


SIMUUTION  ERROR  ANALYSIS  SYSTEM 


PROGRAM  DOCUMENT 
IBLOC 

(continued) 


BLOCK  RETRIEVAL;  Entries  In  IBLOC  are  retrieved  by  sensor  number  by  the 
subroutine  IGET.  An  entry  to  INITI  Is  required  once 
to  Initialize  counters  and  addresses.  Each  reference 
to  IGET  will  retrieve  the  data  corresponding  to  the 
specified  sensor  and  place  it  In  the  following  core 
locations  and  word  formats: 


A 

A  ' 

A 

A 

A 

N 

N 

N 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

V 

0 

0 

0 

0 

0 

0 

X 

X 

0 

0 

0 

0 

0 

0 

X 

X 

0 

0 

0 

0 

0 

0 

0 

N 

ooooxxxxxxxx 

48  bit  floating  point 

48  bit  floating  point 

48  bit  floating  point 

48  bit  floating  point 

STAID 

- 

Sensor  Number 

OTYPE 

- 

(See  OBLOC  format) 

VTYPE 

- 

V  »  Visual,  A  *  Non-Visual 

DIRI 

■N  00  (AM) 

XX-  ) 

DIRF 

J  11  (PM) 

NUSEG 

- 

Number  of  segments 

SEGNOS 

- 

Segments  to  use  (4  Bit  BCD) 

HI 

- 

Initial  elevation  (Radians) 

HF 

- 

Final  elevation  (Radians) 

IDELTAT 

- 

Observation  frequency  (Minutes) 

ROMAX 

- 

Maximum  range  (Earth  radii) 

SDiUUIION  ERROR  ANALYSIS  SYSTEM 


PROGRAM  DOCUMENT 
OBLOC 


BLOCK  FORMAT: 


OBLOC 


A 


48  bit  floating  point 


48  bit  floating  point 


48  bit  floating  point 


48  bit  floating  point 


48  bit  floating  point 


etc.,  repeating  above 
data  for  each  obser¬ 
vation  to  a  maximum 
of  3000  core  locations 


0  4: - >0 


+0 


+1 

+2 


+3 

+4 


+5 


0  «  Control  Character,  0  “  Observation 
Type,  N  ••  Sensor  Number 

p  •  Range  (Earth  radii) 

A,  a  *  Azimuth  or  Right  Ascension  (Rad) 

h,  5  **  Elevation  or  Declination  (Rad) 

p  =  Range  rate  (Earth  radll/k^^  min) 

t  >  Time  since  epoch  (Minutes) 

Data  block  Is  variable  In  length, 
but  must  be  ended  wlt-h  a  word  of 
zeros . 


BLOCK  GENERATION:  OBLOC  Is  generated  In  the  OBSIM  unit.  It  also  may 

be  generated  for  sequences  which  read  In  observation 
cards.  In  these  cases,  OBLOC  Is  generated  by  the 
OBCARD  subroutine  for  system  observation  cards  or 
by  the  OBSCARD  subroutine  for  SPADATS  observations 
cards . 


SIMULATION  ERROR  ANALYSIS  SYSTEM 


PROGRAM  DOCUMENT 
OBLOC 

(continued) 


BLOCK  RETRIEVAL:  Entries  in  OBLOC  are  retrieved  sequentially  by  the 

OBSGET  subroutine.  An  entry  to  INITOBS  Is  required 
In  order  to  initialize  OBSGET  for  the  first  OBLOC 
entry.  Each  reference  to  OBSGET  will  retrieve  the 
next  OBLOC  observation  entry,  placing  the  data  In 
the  following  core  locations  and  word  forniats: 


STAID 

OTYPE 

RANGE 

ALPHA 

DELTA 

ROBOT 

T 


NOTE:  OTYPE  has  bits  44-47  set  to  1  if 
were  simulated 


-  Bits  44-47  Set  =0,  1  (See  Note) 

-  Earth  radii 
Radians 

-  Radians 

-  Earth  radii/k^^  min 

-  Minutes 

the  corresponding  quantities 


A 


A 


A 


A 


N  N  N 


0  0  I  0  I  0  I  0  I  0  loox  XXX 


48  bit  floating  point 


48  bit  floating  point 


4ti  bit  floating  point 


48  bit  floating  point 


48  bit  floating  point 


SIMULATION  ERROR  ANALYSIS  SYSTEM 


PROGRAM  DOCUMENT 
SBLOC 


BLOCK  FORMAT: 


_ SI] 

LOC 

s 

A 

A 

A 

■A 

N 

N 

N 

48  bit  floating  point 


48  bit  floating  point 


48  bit  floating  point 


48  bit  floating  point 


48  bit  floating  point 


etc.,  repeating  above 
data  for  each  sensor 
to  a  maximum  of  600 
core  locations 


0  < - >0 


S  *  Control  Character, 

N  “  Sensor  Number 

X  •  Longitude,  +  East  (Rad) 

$  Latitude  (Rad) 
h  =  Altitude  (Earth  radii) 

X/Cos  0  «  -  (C  +  H)  cos  (>  (Earth  radii) 
Z  =  -  (S  +  H)  sin  (|>  (Earth  radii) 


Data  block  Is  variable  In  length 
but  must  be  ended  with  a  word  of 
zeros . 


BLOCK  GENERATION:  SBLOC  Is  generated  In  the  EXEC  unit  by  the  SENCARD 

subroutine.  All  the  quantities  are  Input  on  Sensor 
cards  (S  cards)  except  for  Z  and  X/cosS  which  are 
computed . 


SIMULATION  ERROR  ANALYSIS  SYSTEM 


PROGRAM  DOCUMENT 
SBLOC 

(cont Inued) 


BLOCK  RETRIEVAL:  Entries  in  SBLOC  can  be  retrieved  sequentially  or 

by  sensor  number  by  the  SENGET  subroutine.  An  entry 
to  INITSEN  Is  required  to  Initialize  SENGET  to  begin 
with  the  first  sensor.  The  sensor  number  will  be 
placed  In  STAID  only  If  sequential  retrieval  Is  used. 
Each  reference  to  SENGET  will  retrieve  the  data  for 
the  next  sensor  or  the  specified  sensor  and  place  it 
In  the  following  core  locations  and  word  formats; 


48  bit  floating  point 


48  bit  floating  point 


48  bit  floating  point 


48  bit  floating  point 


48  bit  floating  point 


A 

A  1  A 

A  !  N  N 

N 

1 

_ jL_i _ 

. . 

XLAMBA 

(Radians) 

PHIRD 

(Radians) 

OALT 

(Eartn  radii) 

XOVCT 

(Earth  radii) 

CAPZ 

(Earth  radii) 

STAID 

Sen.'ior  Number 

SDfUUTION  ERROR  ANALYSIS  SYSTEM 


PROGRAM  DOCUMENT 
SGBLOC 


BLOCK  FORMAT; 


SGBLOC 


A 

A 

A 

A 

N 

3 

48  bit  floating  point 


48  bit  floating  point 


48  bit  floating  point 


48  bit  floating  point 


48  bit  floating  point 


48  bit  floating  point 


48  bit  floating  point 
48  bit  floating  point 


etc.,  repeating  above 
data  for  each  sensor 
to  a  maximum  of  900 
core  locations 


0  - - -  0 


+0 

G  ■  Control 

Character , 

N  -  Sensor 

Number 

+1 

a 

P 

(Earth  radii) 

+2 

0^  (or) 

'^A 

(Radians) 

+3 

<75  (or) 

°h 

(Radians) 

+4 

(Earth  radll/k  ^  min) 
e 

+5 

Ap 

(Earth  radii) 

+6 

Pq,  (or) 

OA 

(Radians) 

+7 

u 

0 

Ah 

(Radians) 

+8 

Ap 

(Earth  radll/k^^  min) 

Data  block  Is  variable  In  length, 
but  must  be  ended  with  a  word  of 
zeros . 


BLOCK  GENERATION:  SGBLOC  Is  generated  In  the  EXEC  unit  by  the  MCARD 

subroutine.  The  quantities  are  Input  values  which 
are  entered  on  Standard  Deviations  cards  (M  cards) 
and  are  not  computed  by  any  program  unit . 


SIMUUTION  ERROR  ANALYSIS  SYSTEM 


PROGRAM  DOCUMENT 

SGBLOC 

(continued) 


BLOCK  RETRIEVAL:  Entries  In  SGBLOC  are  retrieved  by  sensor  number  by 

the  SIGGET  subroutine.  An  entry  to  INITSIG  Is 
necessary  to  Initialize  SIGGET.  Each  entry  to  SIGGET 
will  retrieve  th«  set  of  sigmas  and  biases  correspond¬ 
ing  to  the  sensor  specified  and  place  the  data  In  the 
following  core  locations  and  word  formats: 


E 

A 

A 

A 

N 

48  bit  floating  point 


48  bit  floating  point 


48  bit  floating  point 


48  bit  floating  point 


48  bit  floating  point 


48  bit  floating  point 


48  bit  floating  point 


48  bit  floating  point 


STAID 

Sensor  Number 

SIGRHO 

(Earth  radii) 

SIGALP 

(Radians) 

SIGDLT 

(Radians) 

SIGRRT 

(Earth  radll/k 

BIASRHO 

(Earth  radii) 

BIASALP 

(Radians) 

BIASDLT 

(Radians) 

BIASRRT 

(Earth  radll/k 

STMULATION  ERROR  AHALYSIS  SYSTEM 


PROGRAM  DOCUMEWr 
STPBLOC 


BLOCK  FORMAT :  STPBLOC 


48 

bit 

floating  point 

+0 

M 

(Ax)  or 

M 

(Earth  radii) 

48 

bit  floating  point 

+1 

a 

(Ax) 

0 

(Dy) 

(Earth  radii) 

48 

bit 

floating  point 

+2 

Max 

(Ax) 

Max 

(Du) 

(Earth  radii) 

48 

bit 

floating  point 

+3 

M 

(Ay) 

M 

(Dy) 

(Earth  radii) 

48 

bit 

floating  point 

+4 

a 

(Ay) 

a 

(Dy) 

(Earth  radii) 

48 

bit 

floating  point 

+5 

Max 

(Ay) 

Max 

(Dy) 

(Earth  radii) 

48 

bit 

floating  point 

+6 

(A  z) 

M 

(V 

(Efirth  radii) 

48 

bit 

floating  point 

+7 

a 

(Az) 

a 

(Dj,) 

(Earth  radii) 

48 

bit 

floating  point 

+8 

Max 

(  Az) 

Max 

(V 

(Earth  radii) 

48 

bit 

floating  point 

+9 

M  . 

I.Ar  1 

M 

Ar| 

(Earth' radii) 

48 

bit 

floating  point 

+10 

0 

|Ar  1 

a 

lAil 

(Earth  radii) 

48 

bit 

floating  point 

+11 

Max 

lArj 

Max 

lArl 

(Earth  radii) 

48 

bit 

floating  point 

+12 

(  Ai) 

M 

(V 

(Earth  radll/k'^ 

min) 

48 

bit 

floating  point. 

+13 

a 

(Ai) 

a 

(Du) 

(Earth  radll/k’^ 

min) 

48 

bit 

floating  point 

+14 

Max 

(Ax) 

Max 

(Du) 

(Earth  radll/k"^ 
e 

min) 

48 

bit 

floating  point 

+15 

M 

(Ay) 

M 

(Dy) 

(Earth  radll/k^^ 

min) 

48 

bit 

floating  point 

+16 

a 

(Ay) 

a 

(Dy)  (Earth  radll/k^^ 

min) 

48 

bit 

floating  point 

+17 

Max 

(Ay) 

Max 

(Dy)  (Earth  radll/k’^ 

min) 

48 

bit 

floating  point 

+18 

M 

(Az) 

M 

(i\f)  (Earth  radll/k;l 

min) 

48 

bit 

floating  point 

+19 

a 

(Az) 

a 

(D^,)  (Earth  radll/k^l 

min) 

48 

bit 

floating  point 

+20 

Max 

(Az) 

Max 

(Dy)  (Earth  radll/k^^ 

min) 

48 

bit 

floating  point 

+21 

M 

lArl 

lArl 

(Earth  radll/k"^ 

min) 

48 

bit 

floating  point 

+22 

a 

|Ar  1 

0 

|Ar| 

(Barth  radll/k~^ 

min) 

48  bit 

floating  point 

+23 

Max 

|Ar  1 

Max 

lAil 

(Earth  radll/k!^ 

min) 

etc.,  repeating  above 
data  up  to  a  maximum 
of  960  core  locations 

} 

Data 

must 

block  Is 
be  ended 

variable  length  but 
with  a  word  of  zeros. 

- -  0 

SlHBiATIOM  gMya  amat.ysIS  SYSTEM 


PROGRAM  DOCUMEOT 

STPBLOC 

(continued) 


BLOCK  6EMEEATICMI: 


STPBLOC  ie  generated  by  the  ERPRED  unit.  The  contents 
of  the  block  sMy  be  determined  by  testing  core  location 

OTFFIAG.  _ 

'  -  0  -►  xyz  "v 

UVW/ 


OtPPLAC 


_  r-  0- 
\  -  1 


BLOCK  RETRIEVAL; 


No  retrieval  routine  exists  for  this  block. 
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BLOCK  FORMAT: 


TBLOC 


E 

A 

V 

0 

N 

N 

48  bit  floating  point 


48  bit  floating  point 


48  bit  floating  point 


48  bit  floating  point 

i 

48  bit  floating  point 


48  bit  floating  point 


etc. ,  listing  all 
acquisition  times 
sensor  by  sensor  to 
a  maximum  of  1200 
words 


+0 

+1 

+2 

+3 

+4 


0;  ■  Control  Character,  V  -  VTYPE, 
0  “  OTYPE,  N  »  Sensor  Number 

A  . 


max 


(Minutes) 

Maximum  Range  (Earth  radii) 
Beginning  Time  (Minutes) 
Ending  Time  (Minutes 


ites)  'v 

0  J 


First  Pair 


~  Beginning  Time  (Minutes) 


Ending  Time  (Minutes 


;...) 


nth  Pair 


Data  block  Is  variable  In  length 
and  may  contain  acquisition  data 
for  many  sensors.  The  block  must 
be  ended  by  a  word  of  zeros . 


BLOCK  GENERATION;  TBLOC  Is  generated  by  the  AQTINT  unit,  being  the 
primary  output  of  that  program. 

BLOCK  RETRIEVAL:  OBSIM  uses  TBLOC  In  the  above  format.  There  Is  no 

specific  retrieval  routine  for  TBLOC. 
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VEBLOC 


BLOCK  FORMAT: 

VEBLOC 


48  bit  floating  point 

+0 

48  bit  floating  point 

+1 

48  bit  floating  point 

+2 

48  bit  floating  point 

+3 

48  bit  floating  point 

+4 

48  bit  floating  point 

+5 

48  bit  floating  point 

+6 

etc.,  repeating  above 
data  to  a  maximum  of 
700  core  locations 
(100  sets) 

] 

J 

0  *-  >  0 

*xNo 

*yNo 

(Earth  radll)^ 

(Earth  radll)^ 
Rg  ^  min 


“zo 

(Earth  radii)^ 
r;1  min 

(Radians) 

C 

o 

(Days/Rev^) 

Data  blocR 
but  must  be 

is  variable  in  length 
ended  with  a  word  of 

zeros. 


VEBLOC  Is  generated  internally  by  the  SGPDC  unit. 

It  may  also  be  generated  for  SEAS  by  the  EXEC 
unit  subroutine  VECARD,  which  reads  Variant  Element 
cards  (V  cards)  into  this  blocR. 


BLOCK  GENERATION: 


SIMULATION  ERROR  ANALYSIS  SYSTEM 


PROGRAM  DOCUMENT 

VEBLOC 

(continued) 


BLOCK  RETRIEVAL:  Entries  in  VEBLOC  are  retrieved  sequentially  by  Che 

ElMGET  subroutine.  An  entry  to  INITELM  is  necessary 
to  initialize  ElMGET  to  start  with  the  first  set  of 
variant  elements.  Each  entry  to  ElMGET  will  retrieve 
the  next  set  of  data  and  i^lace  it  in  the  following 
core  locations  and  word  formats: 


48  bit  floating  point 


48  bit  floating  point 


48  bit  floating  point 


48  bit  floating  point 


48  bit  floating  point 


48  bit  floating  point 


48  bit  floating  point 


AXNO 

ATNO 

HXO 

(Earth  radii) 

k"^  min 
e 

HYO 

(Earth  radii) 
k”^  min 

HZO 

(Earth  radii) 
kg^  min 

XLO 

(Radians) 

CO 

(Days/Rev^) 

SIMULATION  ERROR  ANALYSIS  SYSTEM 


PROGRAM  DOCUMENT 


SECTION  7 

SYSTEM  CARO  FORMATS 


The  card  formats  compatible  with  the  Simulation  Error  Ana¬ 
lysis  System  fall  into  three  main  categories:  SYS  cards,  SEA  cards, 
and  Data  cards.  SYS  cards  are  designed  to  be  used  by  SYS  and  are  pro¬ 
cessed  by  SYS.  SEA  cards  are  designed  for  the  SEA  System  and  are  pro¬ 
cessed  by  the  SEA  EXEC.  The  Data  cards  are  designed  to  provide  input 
data  to  the  SEA  System  and  are  also  processed  by  the  SEA  EXEC. 

SYS  Cards 

The  card  function  of  SYS  cards  is  given  in  Columns  17-24. 

The  following  SYS  cards  are  allowed  during  an  SEA  run  (reference  should 
be  made  to  Phllco  SYS  documentation  for  interpretation  and  format  details) 


DUMP 

CCXtIN 

REWIND 

SNAP 

HLT 

REWINDLO 

OCT 

REM 

LOCSENT 

COMMAND 

IBIT 

WRTSENT 

JMP 

ORIGIN 

READF 

JMPL 

COMMON 

READB 

JMPR 

MASTER 

WRITE 

SEGMENT 

CLOCK 

SEA  Cards 

The 

The  SEA  cards 


card  function  for  SEA  cards  is  given  in  Columns  17-24. 
defined  to  date  are: 


7-1 
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Name 

Figure 

JOB 

7-1 

FLOAT 

7-2 

PRINT 

7-3 

RPL 

7-4 

SEA 

7-5 

ENDDATA 

7-20 

SYS 

7-21 

CONTROL 

AQTINT 

7-11 

MOCARO 

7-12 

SGPDC 

7-13 

ERPRED 

7-14 

Data  Cards 


The  function  of  Data  card  Is  Indicated  by  a  "card  type" 

In  Column  80.  This  card  type  is  one  BCD  letter  assigned  to  that  card. 
Data  cards  defined  to  date  Include: 


Name  Card  Type  Figure 


SENSOR  S  7-6 

SIMULATION  PARAMETER  I  7-7 

STANDARD  DEVIATION  M  7-8 

ELEMENT  CARD  1  E  7-9 

ELEMENT  CARD  2  E  7-10 

SYSTEM  OBSERVATION  0  7-15 

SPADATS  OBSERVATION  A, 0-9  7-16 

VARIANT  ELEMENT  1  V  7-17 

VARIANT  ELEMENT  2  V  7-18 

DISTRIBUTION  Q  7-19 


In  the  card  figures,  the  letters  appearing  at  the  top  of 
a  column  In  the  fields  of  the  card  Image,  have  the  following  meanings: 

A  -  Entry  In  this  field  consists  of  letters  and  In  general 
form,  a  word  for  Identification  purposes 

F  -  Entry  In  this  field  will  be  interpreted  as  a  floating 
point  number 

I  -  Entry  in  this  field  will  be  Interpreted  as  a  fixed 
point  Integer 

0  -  Entry  In  this  field  will  be  Interpreted  as  octal  format. 

7-2 


pfOB 


00(0(0100100000 

I  }  )  «  S  •  I  •  •  il  17  'J  M  I)  111 

M  1 1  n  1 1  n  1 1 11 1 1 

222222221222222 

133113131J33111 

4M444444444444 
S$3SS35SJSSS55S 
0  i  0  0  0  1  1  S  0  0  1  0  0  0  0 

iimnnmnt 

((((((((((((OK 

OOOOOIOSSOOISIO 

I  ;  j  I  i  «  '  ■  4  II  n  t}  1]  u  It  III 


dOIKOOO 

II II  iiioi » II  N|; 

1 1 1  n  1 1 1 


MOOOOOOOOOOOOIIOIIIIIIIIOOIOIIIIIIOII 


nmimiiiiiuiiMiiiiuiiiiiiiiuuMiiauiiiiaiiuiiHHiitiiiaaiiiiiiiiiiaiiaMiiiiiiaMiianii 


M  I  n  II 1 1 n 1 1 1 1 1 n 1 1 n 1 1 11 1 11 11 1  It  11 


22 

2  2  2  2 

2222222 

222 

222222222222 

22222222222222 

22222222222 

2  2  2  2  2  2 

33 

3  3  3  3 

3  3  3  3  3  3  3 

333 

333333333333 

33333333333333 

33333333333 

333333 

44 

4  4  4  4 

4  4  4  4  4  4  4 

444 

444444444444 

44444444444444 

44444444444 

4  4  4  4  4  4 

SO 

SSSS 

SSSSSSS 

SIS 

ISSSSSSSSSSS 

SSISSSSSSSSSSS 

SSSSSSSSSSS 

SSSSSS 

(0 

(Oil 

((((0(0 

((( 

((I((lt(l00( 

(((tOOOOOOOOOl 

(((((((((10 

(((((( 

J  7 

7  7  7  7 

7  7  7  7  7  7  7 

7  7  7 

777777777777 

77777777777777 

77777777777 

777777 

(0 

(ill 

((((111 

oil 

(((llOOllSlO 

(((((1(((((((( 

(((((KOOK 

(((((( 

11 

Sill 

SlSllSl 

111 

lltSSSSOSSSl 

ISSSlSSIIlSIll 

llSlOlOlliO 

(111(1 

(((IIIOIIO 


1 1 1 1 1 1 1  n  I 


(••lO 


1 1 1 1 1 


II  II  II  M  tl  II 11  M 


haiiaaaiinuMKauaaaiiuaanaiiaaaiiuUHaauaaaiiuuMaaiiaaaiianNaaiiaaa 


Field 

Column 

Description 

1 

1-16 

Kot  used. 

2 

17  -  24 

JOB  (card  function).  Defines  start 

of  SYS  Job 

3 

25  -  80 

JOB  description  for  identification  ; 
Appears  at  the  beginning  and  end  of 
on  flexowrlter. 

purposes, 
output  and 

FIGURE  7-1 
JOB  CARD 
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Field 

Column 

Description 

1 

1  -  8 

Not  used. 

2 

9  -  16 

Location  to  be  corrected  in  octal. 

3 

17  -  24 

FLOAT  (card  function)  tells  executive  program 
to  make  floating  point  correction. 

4 

25  -  40 

Quantity  desired  in  the  floating  point  format. 

5 

41  -  80 

Not  used. 

iJ 

FIGURE  7-2 

FLOAT  CARD  I 

); 

7-4  i' 

Li 


ii 


I 

S9 

oiioioiioioeetM 

(  f  1  4  S  •  I  •  •  tf  ill;  ))  M  t)  H 

1 1 1 1 1 1 1  n  1  M  1 1 1 1 

2222272222222222 

3133333323333333 

4444444444444444 

Si3SS55Si33S5SS5 

S(IStStt(868StSt 

nil  1 1  in  1  m  11 1 

iiiiiiiiiiiiiiii 

S9S  9  9  9  9  SSSnsn9 

1  }  J  «  S  «  '  1  •  It  III?  II  M  14 

19991999 

II  l|  It  K  )l  » 1)  M 

I  n  n  1  M 

22222222 

33333333 

44444444 

19999939 

119991(9 

11111111 

(11111(9 

9(9999(9 

II  It  It  It  11  »  11  N 

III(II9(I((I(I(((II(9(I(IIIII(II(I(I•IIIIIIII•III••IIIII 

»itiiiiiiitiiiiiiMititiiii»iitrtttittit««ti4iHiiituiiii«iiitii«tiiiaHititiia«aiiniiMiiitnii)ia 

M  1 1 1  M  It  1 1 1 11 1 1 1 1  n  1  It  1 1  n  n  1 1 1 1  n  1 1 11  It  1  n  n  1  n  1 1 1 1  n  I 

33222232232232222222222223222222222222222222222222222222 

33333:33333333333333393333333333333333393333333333233132 

44444444444444444444444444444444444444444444444444444444 

99999999999999999999999999999999999999999999999999999999 

lll((((((l(l(((9lll(((l((lllllllllllllll(ll(llill(llllll 

nil  in'nnnnnnni  1111111111111111111111111111111111 

9119 lll(llllll(l((l(ll( 11119 (ll(l(lllll(((ll((ll(lll(lll 

9(9((99(99(99((99999999(((9(((((((((((((((((((9(l((((((( 

n»itaiiaiiiiuMiiiiuaa«tii}ti«a«<i4itt»iiiiUH»Miiaaatitiuitaaiiaaaiianitii«ii«iia 

Field 

Column 

Description 

1 

1  -  16 

Not  used. 

2 

17  -  24 

PRINT  (card  function) 
following  information 

signals  EXEC 
6n  hard  copy 

to  print 
output. 

3 

25  -  80 

BCD  information  to  be 

printed. 

FIGURE  7-3 
PRINT  CARD 
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Field 

Column 

Description 

1 

1  -  16 

Not  used. 

2 

17  -  24 

RPL  (card  function)  calls  RPL  program  into 
core  from  magnetic  tape. 

3 

25  -  80 

Variable  field  (parameters  separated  by  any  of 
the  characters  ,  .  /  ;  ) 

Ist  parameter  -  Logical  tape  number  where  RPL 
program  is  located.  Usually  tape  number  4. 

2nd  parameter  -  Program  Identity.  Usually  ■■  SEAn 
where  n  >  number  of  sequence  to  be  run.  (e.g., 

S£A1  or  SEA2,  etc.). 

3rd  parameter  -  'X>0"  ■  Indicates  to  sys  that  control 
is  to  be  transferred  to  the  RPL  program  after  it 
is  loaded. 

FIGURE  7-4 
RPL  CARD 
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SEA 


SEAn,CASE  ID 


II ')  ><  n  Mil  II II »  »  a  It  M 


naiiaaaiiaaMaau»a«»ttiiii«ai>itiiiiiii>nH«ii»iinaii«a««aiiaaan 


I  n  I  M  t  ri  M  I  n  n 


IIIIIMII 


I  n  n  1 1  n 

122212211 

211113111 

414444444 

SSSIISSSS 

lllltllll 

777TJ7777 

IIIIIMII 

lllllllll 


HIM 


IIIIIIIIIIIIIIIHIIMIIIIIIIIIIIM 

I  I  1  <  I  I  I  I  I  a 

I  t  I  n  I  I  I  M  t  I  1  I  M 

222222222222222222222222222222222222222 
1 1 1 1 1 1 1 1 1 1 1 3 1 1  3  1 1 1 1 1 1 3 1 1 1 1 1 1 1  : 1 1 1 1 1 1 1 1 1 
444444444444444444444444444444444444444 

I 

M  1  M  M  S  M  M  M  S  I'M  S  S  1 1 1 1  i  S  i  S  n  1  S  S  M  S  S  M 

lllilllMIIMIMjlllllllilllilMllllllli 
777777777777777777777777777777777777777 

iiiiiiiiiiiiiiiiiiiiiiiniiiiiiiiiiiiii 

SSMISMMIlMlMIlSlIlllMIIIMIIIIIIIf 

I  )  j  4  I  I  :  I  I  II II II II HH  l•jll  iiiiaiiiMiMiiaiiaaaiiaaMaaMaaaiiituiiiiaiiaaaiiauaaaBaaaiiuaaaaaaaaaaaaaaiiaaa 


Min 

2  222  2 
11111 
444  44 
MSS* 
IMIS 
7  7  7  7  7 
HIM 
HIM 


Field 

1 

2 


Column 
1  -  16 
17  -  24 


Description 


Not  used. 


SEA  (card  function)  defines  the  beginning  of 
a  case. 


3  25-80  Variable  field,  (parameters  separated  by  any  of 

the  characters 

1st  parameter  -  code  name  of  sequence  being 
run  (e.g.  SEAl,  SEA2,  etc). 

2nd  parameter  •  8  character  (including  blanks) 
case  identification. 


FIGURE  7-5 
SEA  CARD 
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Field  Column 


Description 


1  1-3  Sensor  Ntanber. 


2 

4  -  12 

0>Lstltude  (degrees,  +  «  North) 

3 

13  -  22 

Longitude  (degrees,. +  ■  East) 

4 

23  -  28 

H  -  Altitude  (meters) 

5 

29  -  79 

Not  used 

6 

80 

Card  type  ■  S 

FIGURE  7-6 
SENSOR  CARD 


7-8 


2  3  4  5 

■-»F  r — H 


Field 

1 

2 

3 

4 

5 

6* 

7 


•  ••••■•iiMUHiiiiSMnNaeiiBaHeaHeaannnNii 

1 1  It  1  M 1  1  I  1  1  1  1  1  n  11  1  It  1  1 1  1  1  n  t  1  1  1 

3333t3332t23I3 

332223I22: 

131  jinni 

3II1I3IJJS1311 

3JII3III1 

M4  4444  4  44 

44444444444444 

444444444 

iSSSSSSSSS 

SiSSSISSf SSSSi 

liSf liif S 

til Slltlll 

llllllllll 

ninniiinn 

111111111 

iniiiiiii 

llllllllllllll 

lllllllll 

III  9  III!  ••lilt  mil  Mil  Mil  mil  II 

Column 
1-3 
4-8 
9-10 
11  -  15 
16  -  17 
18  -  23 

24 

25  -  33 
34  -  42 
43  -  76 

77 

78  -  79 
80 


*  Not  used  In  Sequence  2 


Description 

Sensor  number 

Beginning  H  for  station  (degrees) 

AM  or  FM  for  Field  2 

Final  H  for  station  (degrees) 

AM  or  FH  for  Field  4 

Maximum  range  for  station  (km) 

Number  of  segments  to  divide  pass  Into: 

(Integer  1-9,  1) 

Segments  to  use:  1-9  (sequential),  Entire  pass 
^t  (observation  time  Interval  In  minutes) 

Not  used 

Visual  ■  V,  Non-vlsual 

Observation  type  (see  observation  type  table) 

Card  type  ■  1 


FIGURE  7-7 

SIMULATION  PARAMETER  CARD 
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OBSERVATION  TYPE  TABLE 


I 


Observation 

sm _ 

Time 

Aslmuth 

and 

Elevation 

Rt.  Ascen. 
and 

Declination 

Range 

Range 

Rate 

1 

X 

X 

2 

X 

X 

X 

3 

X 

X 

X 

4 

X 

X 

X 

X 

5 

X 

X 

6 

X 

X 

X 

7 

X 

X 

X 

8 

X 

X 

X 

X 

9 

X 

X 

10 

X 

X 

X 

11 

X 

X 

•  1 

i 


y 

li 

ij 

0 

FIGURE  7-7  (cont.) 

SIMULATION  PAKAMETER  CARD  I] 


11 


I 


[ 

L 

[ 


2 

• 

00 

Standard 

deviation 

3 

9  -  13 

Standard 

deviation 

A 

14  •  20 

Standard 

deviation 

5 

21  -  26 

Standard 

deviation 

6 

27  -  31 

Bias  on  azimuth  or 

of  azimuth  or  right  ascension  (degrees), 
of  elevation  or  declination  (degrees), 
of  range  (meters), 
of  range  rate  (meters  per  second), 
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Card  type  "  M. 

FIGURE  7-8 
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Card  Type  ■  E 

FIGURE  7-9 
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a  -  Semi-major  axis  (earth  radii) 
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e  - 

Orbital  eccentricity 
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True  anomaly  at  culmination 
over  station  (degrees) 
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COL 

COL 

,  north"? 

SOOTHj 
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Zenith 

Pass  N-S 
or  S-N 
over  Stn. 

h  -  Initial  elevation  angle 
(degrees) 
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73  -  74 

Not 

Used 

Not  Used 
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75  -  77 

Satellite  Number 

Satellite  Number 

9 

78 

Card 

Number  >  1 

Card  Number  >  1 

10 

79 

Element  Type  ■  C 

Element  Type  -  D 

11 

80 

Card  Type  “  E 

Card  Type  >  E 

FIGURE  7-9  Cont. 
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8 


Fl^ld  Column  Description 


1 

1  -  16 

Time  of  epoch  (YYMMDDHHMMSS.SSS) 

Leave  blank  for  types  C  &  D 

2 

17  -  30 

C  -  Rate  of  change  of  period  (days/rev  ) -blank  field  ■  0 

3 

31  -  32 

Not  used. 

4 

33  -  44 

a  -  Initial  range,  element  type  D  only  -  blank  for 
f  °  types  A,  B,  C 

5 

45  -  47 

Sensor  number  (type  C  or  D  only) -blank  for  types  A  &  B 

6 

48  -  71 

Not  used. 

7 

72  -  74 

Element  number 

8 

75  -  77 

Satellite  number 

9 

78 

Card  number  ■  2 

10 

79 

Element  type  (A,  B,  C,  D) 

11 

80 

Card  type  =  E 

FIGURE  7-10 
ELEMENT  CARD  2 
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Field 

Column 

Description 
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1  -  8 

Not  used. 

2 

9  -  16 

AQIINT  (program  ID) 

3 

17  -  24 

CONTROL  (card  function) 

4 

25  -  32 

Observation  duration,  minutes 

5 

33 

Output  option:  Acquisition  Times. 

0  or  ^  ,  >  No  output;  1  >  output 

6  * 

34 

Output  option:  Observation  Simulation. 

0  or  A ,  no  output;  1,  output  all  Obs; 

2,  output  1st,  middle,  end  last  Obe.  In 
each  segment. 

7 

35 

Perturbations  control:  0  or  ^ , 

No  perturbations;  1,  General  perturbations 

8* 

36 

Punch  option:  Observation  Simulation. 

0  or  A  ,  no  punched  cards ; 

1,  punch  all  generated  observations 

9 

37  -  80 

Not  used. 

*  Not 

used  In  Sequence  2 
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Field 

Column 

Description 
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1  -  8 

Not  used. 
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9-16 

MOCARO  (program  ID) 
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CM 

• 

CONTROL  (card  function) 

4 

25  -  27 

K,  number  of  contaminated  sets  of  observations  to 
be  generated. 
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28  -  37 

N,  starting  random  number,  integer  of  the  form  4  I+l 
justified  right 
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38 

Output  option:  0  or  A  ,  no  output;  1,  output. 
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39  -  80 

Not  used. 

FIGURE  7-12 

MONTE  CARLO  CONTROL  CARD 


7-16 


1 

2 

SGPDC 

3 

CmiROL 

■ 

■ 

8 

9 

10 

11 

12 

14 

15 

16 

17 

B 

a 

IIIOIMI 

1  1  j  «  t  )  >  • 

M  1  1  M  1  1 

72221222 

31333333 

4<444444 

SSiSSiSS 

KtSff  Ei. 

11111111 

IIIIIMI 

ISSSSJSS 

OEOOtOtl 

1  1C  >1  IC  •)  14  IS  IS 

1 1 1 1  n  M 

22222222 

33131331 

44444444 

3SS5SSS3 

I.  6  6  S  S  S  S  S 

11111111 

llllllli 

99ES3SS9 

4  II  11  IS  II  14  IS  14 

IIIIIIOI 

IS  IS  IS  »  II  »  SI  S4 

1 1 1 1  n  1 1 

22222222 

11313311 

44444444 

95599999 

EEEEIISS 

11111111 

llllllli 

91991191 

u  ••  i«  H II }}  IJ  a 

lOOIIII 

ss  s>  ’  Ha  nil 

1  1  M  1  1  1 

2223133 

1333333 

4  4  4  4  4  4  4 

5  9  9  9  9  9  9 

IIIEIil 

1111111 

lllllll 

1111191 

nail  HU  a  II 

M 

III] 

1  t 

at 

1 

a 

1 

2 

a 

mill 

H  IS  11  IS  list 

1 1 1  n  1 

2  2  2  2  2  2 

1  3  3  3  1  1 

4  4  4  4  44 

99S599 

ilEIII 

111111 

mill 

mill 

a  a  If  a  a  « 

III 

4S41SS 

1  1  1 

222 

113 

444 

999 

III 

1 1 1 

III 

111 

41  4SS) 

mil 

14  4S  a  ss  41 

1 1 1 1 1 

2  2  2  2  2 

11331 

4  4  4  4  4 

31999 

mil 

1  3  3  3  7 

mil 

mil 

H  a  a  4S  a 

mil 

a  ■  II  SI  u 

mil 

2  2  2  2  2 

11111 

4  4  4  4  4 

9  9  9  9  9 

mu 

3  3  3  3  3 

mil 

mil 

a  a  SI  II  SI 

mu 

w  a  a  II M 

mil 

2  2  2  2  2 

11111 

4  4  4  4  4 

9  9  9  9  9 

mu 

3  3  3  3  3 

mu 

mu 

aaaisa 

III 

aai 

1  1  1 

222 

111 

444 

999 

III 

333 

III 

III 

•  as 

1} 

III 

■  aa 

1  1  1 

222 

111 

444 

999 

III 

III 

uaa 

III 

■  IS  a 

1  1  1 

222 

111 

444 

919 

III 

333 

III 

III 

»isa 

II 

lass 

1  1  1 

222 

111 

144 

III 

III 

3  33 

III 

III 

aasi 

*ta 

lllllll 

aaanaa* 

lllllll 

2222122 

lllllll 

4444444 

IlllUf 

mull 

3337323 

mull 

mim 

a  a  a  ss  a  a  a 

Field  Column 

1  1-8 

2  9-16 

3  17-24 

4  25-31 


5  32-33 


Description 
Not  used. 


SGPDC  (program  ID) 
CCXfTROL  (card  function) 


Correction  Flags  Override 

correct  a,  e,  1,A,U>,  Mo  and  Co  (If  general 


Col. 


.  Indicates 

input  correction  control  as  follows: 

25  -  1, 

Correct  a 

26  -  1, 

Correct  e 

27  <=  1, 

Correct  1 

28  -  1, 

Correct  Jt 

29  -  1, 

Correct  ui 

30  -  1, 

Correct  Mo 

31  -  1, 

Correct  Co 

Col  ■■As  0 

,Do  not  correct  corresponding  element. 

Repeat  Counter  Override. 

mk.  Iterate  6  tlmes/element  set. 

-  n,  Iterate  n  tlmes/element  set. 


FIGURE  7-13 
SGPDC  CONTROL  CARD 


;-i/ 


Field 

6 

7 


8 

9 

10 


11 

12 


Colunn 

34 

35  -  40 


41  -  43 


44  -  48 


49  -  53 


54  -  58 


59  -  61 


Description 

Perturbations  Control 
-  0  or^,  no  perturbations. 
>  1,  General  perturbations 


Output  Options  Control. 

Any  column  ^  C  or  ^  Indicates  print  or  punch  not  desired 
of  the  corresponding  Item. 

Col.  35  “  1,  print  r,  r,  and  Ar,  Ar 

Col.  36  =  1,  punch  r,  r  variant  elements 

Col.  37  •  1,  print  classical  and  delta  elements 

Col.  38  1,  puncl  elasslcal  variant  elements 

Col.  39  1,  print  final  KMS  values. 

Print  number  of  residuals  accepted 
and  rejected. 

Col.  40  =>  1,  print  residuals  of  observations  for 
final  variant  element  set. 


RMS  Multiplier  Override. 

=  A  ,  RMS  multiplier  =  1.5 
«■  0  ,  no  residual  rejection. 

«=  n  ,  RMS  multiplier  =  n. 

First  Absolute  Maximum  Override,  (absolute  maximum  for 
range  and  angle  residuals  when  the  RMS  Is  greater  than 
50  km.) 

“  ^  ,  absolute  maximum  =  1000  km. 

^ ,  absolute  maximtim  Is  specified  in  the  field  In  km. 

Second  Absolute  Maximum  Override,  (absolute  maximum  for 
range  and  angle  residuals  when  the  RMS  Is  less  than 
50  km.) 

<■  A  ,  second  absolute  maximum  °  75  km. 

t  second  absolute  maximum  is  specified  In  the  field 
in  km. 

Absolute  Maximum  for  Range  Rate,  Residuals  Override. 

=  A  ,  absolute  maximum  for  range  rate  residuals  >  .5  km/sec. 

,  absolute  maximum  for  range  rate  residuals  specified 
In  field  In  km/sec. 

Convergence  Criterion  Override  (minimum  per  cent  change 
in  RMS  for  convergence). 

“A  ,  convergence  criterion  «•  0.05 

,  convergence  criterion  specified  In  the  field. 


FIGURE  7-13  cont.  SGPDC  CONTROL  CARD 


7-18 


SIMULATION  ERROR  ANALYSIS 


PROGRAM  DOCUMENT 


I 

I 

I 

I 

I 

I 

I 

f 

[ 

i; 

i 

[ 

i 

i 

I 

I 

I 

i 

I 


Field 

Column 

Descrlptioa 

13 

62 

Element  Errors  Statistical  Analysis  Override: 

.  0  enr  A,  perform  the  statistical  analysis 

involving  the  element  errors 
«  1,  suppress  the  computations 

14 

63-65 

SI,  the  number  of  standard  deviations  below  the 
mean  at  the  first  cell  of  the  element  error 
frequency  distribution. 

■  A ,  SI  set  “3.0 

A  ,  SI  specified  in  the  field  (floating  format) 

15 

66-68 

S2,  the  number  of  standard  deviations  above  the 
mean  at  the  last  cell  of  the  element  error 
frequency  distribution. 

■  A  »  S2  set  “3.0 

A  ,  S2  specified  in  the  field  (floating  format) 

16 

69-71 

NS,  number  samples  of  the  element  errors  used 
to  compute  the  range  of  the  element  error 
frequency  distributions. 

-  A ,  NS  set  «  N  (N  ■  total  number  of  delta 
quantities  in  the  distribution.) 

A  ,  NS  specified  in  the  field  (Integer  format). 

17 

72-73 

I,  number  of  cells  in  the  element  error  frequency 
distribution. 

»  A  ,  I  “  -y  (integral  part) 

A  ,  I  specified  in  field  (integer  format) 

18 

74-80 

Not  used. 

FIGURE  7-13  cone.  SGFX  CONTROL  CARD 
7-lV 
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■  aaiianMaaiia 

1 

Field 

Column 

Description 

1 

1  -  8 

Not  used. 

2 

9  -  16 

ERPRED  (program  ID) 

3 

17  -  24 

CONTROL  (card  function) 

4 

25 

Casetype  Option: 

A  or  0  -  preditlon  points  equally  spaced  In  mean  anomaly, 
referenced  to  the  first  perigee  passage  after 
epoch  according  to  F.  (Initial  M),  AP  (M  Interval), 
Pj  (final  M) 

2  -  F^  equal  time  spaced  prediction  points  in  each  of 

four  quadrants  of  mean  anomaly  referred  to  the 
time  of  the  last  observation 

3  -  Prediction  points  equally  spaced  In  time, referenced 

to  epoch  according  to  P  (Initial  time),  AP  (time 
Interval),  P^  (final  time) 

5  26  Coordinate  System  Option; 

A  or  0  -  position  and  velocity  errors  referred  to  x,  y,  z 
coordinate  system 

#  0  -  position  and  velocity  errors  referred  to  U,  V,  W 
coordinate  system 

FIGURE  7-14 

ERPRED  CONTROL  CARD 
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SIMULATION 

ERROR  ANALYSIS 

PROGRAM  DOCUMENT 

Field 

Column 

Description 

6 

27 

Computation  Option:  j 

A  or  0  -  errors  computed  using  MNREF,  with 

perturbation  control  as  specified  on 

AQTINT  control  card. 

1  -  errors  computed  using  MNREF  with  ; 

perturbations 

2  -  errors  computed  using  MNREF  without  j 

perturbations  j 

3  -  errors  computed  by  multiplying  the  ele-  1 

ment  errors  by  partial  derivative  matrix.  I 

7 

28 

Output  Option: 

A  or  0  -  no  optional  output 

^  0  -  outputs  position  and  velocity  errors  in 
specified  coordinate  system. 

8 

29-37 

Pi 

9 

38-46 

AF 

>  see  Field  4  description 

10 

47-55 

"f 

11 

56 

Erroi 

A 

:  Prediction  Distribution  Override: 
ir  0  -  distribution  computed  for  position 
and  velocity  errors 

1  -  suppress  distribution 

12 

57-59 

SI,  multiple  of  standard  deviation,  lower  limit, 
for  Error  Prediction  distributions. 

■  A,  SI  set  “  3.0 

A,  si  specified  in  field  (floating  format). 

13 

60-62 

S2,  multiple  of  standard  deviation,  upper  limit, 
for  Error  Prediction  distributions. 

=•  A,  S2  set  “  3.0 

A,  S2  specified  in  field  (floating  format) 

14 

63-65 

NS,  number  of  error  quantities  used  to  compute 
the  range  of  distributions  for  Error  Prediction 
distributions. 

o  A,  NS  =  M  (total  number  of  error  quantities) 

A ,  NS  specified  in  the  field  (integer  format) 

15 

66-67 

I,  number  of  cells  in  the  distribution  for  Error 

Predications  distributions 

■  A,  I  -  (integral  part) 

^  A  ,  1  specified  in  the  field  (integer  format) 

16 

68-78 

S 

Not  used 

17 

79 

Output  option  #1  i 

A  or  0  -  no  optional  output  { 

0  -  print  error  distribution  j 

18 

80 

Output  option  #2 

A  or  0  -  no  optional  output 

0  -  punch  error  distribution  data 

FIGURE 

7-14  cont.  ERPRED  CONTROL  CARD 

7-21 

Field  Colunn  Description 


1 

1  -  3 

Satellite  number. 

2 

4 

Not  used. 

3 

5 

0  type  (generated  internally  to  agree 

with  system  code). 

4 

6  -  8 

Sensor  number. 

5 

9-24 

Time  since  epoch  (minutes). 

6 

25  -  38 

Azimuth  (or)  right  ascension  (radians) 

7 

39  -  52 

Elevation  (or)  declination  (radians). 

8 

53  -  66 

Range  (Earth  radii). 

9 

67  -  79 

Range  rate  (Earth  radii/k^^min.) 

10 

80 

0  (card  type^. 

FIGURE  7-15 

SYSTEM  OBSERVATION  CARD 
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Field 

1 

2 

3 

4 

5 

6 
7 


8 


Column  Description 

1-3  Satellite  number  (for  external  use  only). 

4-6  Not  used. 

7-9  Sensor  number. 

10  Not  used. 

11  -  15  YMMDD  (Year,  Month,  Day) 

16  -  24  HHMMS^SSS  (Hour,  Minute,  Second) 

25  -  30  Elevation, (or)  declination  (col  25  can  be  overpunched 

for  sign) 

Degrees 

31  -  37  Azimuth, (or)  right  ascension 

Degrees  (or)  HHMMSSS  (Hour,  Minute,  Second) 

(Col  31  must  be  overpunched: 

+  to  show  azimuth,  elevation 
-  to  show  right  ascension,  declination) 

FIGURE  7-16 

SPADATS  OBSERVATION  CARD 
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SIMULATION  ERROR  ANALYSIS 


PROGRAM 


Field 

Column 

Description 

9 

38-44 

Range  (kilometers) 

10 

45-53 

Range  rate  (km/sec) 

11 

54-79 

Not  used. 

12 

80 

Card  type  (  =  A,  0,  1,  2,  3, 

Note:  No  decimals  on  card  -  they  are  Indicated  by  carets. 


7,  8.  9) 


li 

1; 

y 


FIGURE  7-16  cont.  SPADATS  OBSERVATION  CARD 
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Type  A 
(Classical) 

a  •  Semi -major  axis 
(Earth  radii) 

e  -  Orbital  eccentricity 


i  -  Orbital  inclination 
(deg) 

-  Right  ascension  of 
ascending  node  (deg) 

OJ  -  Argument  of  perigee 
(deg) 

M  -  Mean  anomaly  at 
°  epoch  (deg) 


Type  B 

(Position  &  Velocity) 

X  -  Equator  plane  position 
component  along  4^(km) 

y  -  Equator  plane  position 
component  X  Co  x  (km) 

s  -  Position  component  ortho¬ 
gonal  to  X,  y  (km) 

X  -  Equator  plane  velocity 
component  along*j|Bt'</Bec) 

y  -  Equator  plane  to  velocity 
component  X  to  x  (m/aec) 

z  .  Velocity  component  ortho¬ 
gonal  to  X,  y  (m/sec) 


FIGURE  7-17 

VARIANT  ELEMENT  CARD  1 


SIMULATION  ERROR  ANALYSIS 


PROGRAM  DOCUMENT 


Field 

Column 

Type  A 
(Classical) 

Type  B 

(Position  &  Velocity) 

7 

73-74 

Not  used. 

Not  used 

8 

75-77 

Satellite  number. 

Satellite  number. 

9 

78 

Card  number  ?  1 

Card  number  -  1 

10 

79 

Element  type  A. 

Element  type  -  B. 

11 

80 

Card  type  =  V. 

Card  type  ■  V. 

FIGURE  7-17  VARIANT  ELEMENT  CARD  1 
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Field 

Column 

Description 

1 

1  - 

16 

Time  of  epoch  (YYMMDDHHMMSS.SSS). 

2 

17  - 

30 

C*-  Rate  of  change  of  period  (days/rev^ 

3 

31  - 

71 

Not  used. 

4 

72  - 

74 

Element  number. 

5 

75  - 

77 

Satellite  number. 

6 

78 

Card  number  -  2. 

7 

79 

Element  type  »  A,B 

8 

80 

Card  type  =  V. 

FIGURE  7-18 

VARIANT  ELEMENT  CARD  2 
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Field 


Column 


Description 


1 

1-17 

Name 

2 

18  -  31 

Time  since  epoch  (minutes) 

3 

32  -  43 

Mean 

4 

44  -  55 

Standard  deviation 

5 

56  -  67 

Minimum 

6 

68  -  79 

Maximum 

7 

80 

Q  (cird  type) 

i] 

FIGURE  7-19  j 
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Mot  used. 

ENDDATA  (card  function)  defines  end  of 
case  data. 

Not  used. 


FIGURE  7-20 
ENDDATA  CARD 
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Column 
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Not 

Description 
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(card  function)  transfers  control  to 
used 


VIGURE  ;-21 


SYS  CARD 


SIMULATION  ERROR  ANALYSIS  SYSTEM 


PROGRAM  DEVELOPMENT 


SECTION  8 
DICTIONARY 


The  core  location  assignments  which  are  common  to  all  of 
the  program  units  In  the  Simulation  Error  Analysis  System  are  defined 
In  the  following  list.  Common  block  storage  assignments  are  Included 
In  the  dictionary  with  their  associated  lengths  and  numbers  of  sets 
of  data  specified.  The  system  constants  are  grouped  together,  their 
numerical  values  being  Included  In  the  definition. 
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0CCCP6  DC  CONTROL  FOR  FIRST  ABSOLUTE  MAX  RANGE  AND  ANGLE  (KM) 

DCCCP7  DC  CONTROL  FOR  SECOND  ABSOLUTE  MAX  RANGE  AND  ANGLE  (KM) 


DCCCP8  OC  CONTROL  FOR  ABSOLUTE  MAX  RANGE  RATE  (KM/SEC) 

DCCCP9  OC  CONTROL  FOR  CONVERGENCE  CRITERION 

DCFIRST  INITIALIZATION  SNITCH  FOR  SGPDC 

DCI  I  FOR  DC  DISTRIBUTION  (NO.  OF  CELLS  IN  DISTRIBUTION) 
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SIMUUTION  ERBOR  ANALYSIS  SYSTEM 


PROGRAM  DOCUMENT 


SECTION  9 

TEST  CASES 


In  order  to  provide  test  data  for  system  checking,  and  also  to 
Illustrate  a  few  of  the  possible  output  options,  the  documentation  Incor¬ 
porates  two  test  cases.  The  output  for  these  two  cases  Is  presented  here 
In  the  actual  computer  output  format.  Complete  Input  for  these  cases  Is 
also  provided  so  that  the  runs  may  be  duplicated  for  the  above  mentioned 
system  check.  The  Input  cards  are  described  by  fields,  omitting  fields 
that  are  blank  for  these  cases.  Reference  should  be  made  to  System  Card 
Formats  for  Identification  of  the  fields  on  each  card. 


9.1  TEST  CASE  1 

The  first  test  case,  EXAMPLE  SEAl  A  ELEMENTS  POINTS  ANALYSIS, 
was  run  on  SEAl  with  type  A  elements  as  Input.  Acquisition  times  were 
generated  for  three  sensors,  each  having  a  different  maximum  range,  for 
a  duration  of  112  minutes.  Observations  were  simulated  and  differentially 
corrected  with  no  perturbations.  The  SGPDC  unit  was  executed  with  no 
overrides.  ERPRED  predicted  position  and  velocity  errors  at  the  end  of 
the  third  and  at  the  end  of  the  fourth  revolutions,  and  also  generated 
the  statistical  output  at  these  points. 

The  Input  cards  for  this  Sequence  1  run  Include  all  those  shown 
In  Figure  2-9.  The  contents  of  the  cards  are  as  follows: 


9-1 


SIMUUTION  ERROR  ANALYSIS  SYSTEM 


PROGRAM  DOCUMEBT 


JOB  CARD 


Field 


Quantity 


2 

3 


JOB 

EXAMPLE  SEAl  AELEMEMTS, 
POINT  ANALYSIS 


RPL  CARD 


Field 


Quantity 


2 

3 


RPL 

4, SEAl, GO 


DUMP  CARDS 
(see  Figure  2-9) 


JMP  CARD 
(See  Figure  2-9) 


SEA  CARD 


Field  Quantity 

2 
3 


SEA 

SEAl,  EXAMPLE 
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SIMUUTION  ERROR  ANALYSIS  SYSTEM 


PROGRAM  DOCUMENT 


SENSOR  CARD  (3) 


Field 

Quantity 

Field 

Quantity 

Field 

Quantity 

1 

001 

1 

002 

1 

003 

2 

5 

2 

10 

2 

15 

3 

40 

3 

100 

3 

160 

A 

0 

4 

0 

4 

0 

6 

S 

6 

S 

6 

S 

SIMULATION 

PARAMETER  CARD  (3) 

Field 

Quantity 

Field 

Quantity 

Field 

Quantity 

1 

001 

1 

002 

1 

003 

2 

5 

2 

3 

2 

1 

3 

AM 

3 

AM 

3 

AM 

4 

3 

4 

5 

4 

1 

5 

PM 

5 

PM 

5 

PM 

6 

3000 

6 

3500 

6 

99999 

7 

5 

7 

5 

7 

1 

8 

135 

8 

135 

8 

1 

9 

5 

!> 

5 

2 

11 

11 

A 

11 

V 

12 

2 

12 

4 

12 

5 

13 

I 

13 

I 

13 

I 

STANDARD  DEVIATION  CARD  (3) 

Field 

Quantity 

Field 

Quantity 

Field 

Quantity 

1 

001 

1 

002 

1 

003 

2 

0,1 

2 

0.1 

2 

0.01 

3 

0.1 

3 

0.1 

3 

0.01 

4 

1000 

4 

1000 

4 

1000 

5 

1 

5 

1 

5 

0 

11 

M 

11 

M 

11 

M 

SDflJUTKMt  ERROR  ANALYSIS  SYSTEM 


■  ■ 

ELEMENT  CARD  1 

Field 

Quantity 

^  ' 

1 

1.21 

2 

0.1 

3 

20 

4 

20 

5 

10 

6 

350 

- 

9 

1 

10 

A 

1 

11 

E 

ELEMENT  CARD  2 

Field 

Quantity 

1 

610601072149.978 

9 

2 

10 

A 

11 

E 

AQTINT  CONTROL  CARD 

-  r 

Field 

Quantity 

j 

2 

AQTINT 

3 

CONTROL 

t 

4 

112 

*  * 

5 

1 

6 

1 

1 

8 

1 

1 

■j 
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MOCARO  CONTROL  CARD 


Field 


Quantity 


2 

3 

4 

5 

6 


MOCARO 

CONTROL 

2 

2941 

1 


SGPDC  CONTROL  CARD 


Field 


Quantity 


2 

3 

7 

17 


SGPDC 
CONTROL 
lA  1  All 


ERPRED  CONTROL  CARD 


Field 


Quantity 


2 

3 

8 

9 

10 

15 

17 


ERPRED 

CONTROL 

1080 

360 

1440 

4 

1 


The  output  of  this  test  case  appears  on  the  following  reproductions 
of  computer  output : 
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Utx  «  » 

X  M  H 

MS  «  •  H 


•COO' 
^  M 
«  -9 


X  C 
^  tel 

S  C 


IT  O'  T- 

o  tc 

c  ^  C 


■>■0  0 
IT  o  c 
tv  -> 


v4  (V  <V 
M  n  (V 
(V  O  V 

»  n  V 

» f>  «>« 

^  O  V 

«  V  (V 
<C  X 
CV 
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ii 
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I 

I 


i; 

t 

E 

i 

E 

[ 

I 

1 

I 

E 

[ 

E 

t 

I 

I 

I 
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<NjGl4>^4«r*«-4W4MM 

'^*1  •"•I*  *•'*"» 

4  M'«(Wrt</<«V*4C«C>4 
f4  4<(r>f»ifEr*>f4 
«<C'CK4PO>tf\K*t^M<V<4 

«  '•a  ;  9.  ‘«E  V  \  <>:*4  T  'A  e  M 
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c 
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A 
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1 

I 

1 

I 

I 

I 

I 
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1 

I 

I 

I 

I 

I 
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W*o  /»  r-  »  *4  JO'  r**  *  It  « 
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9-18 


1) 


i 

w  i 
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9-20 


n 
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4 


{ I 
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9.2  TEST  CASE  2 

The  second  test  case,  EXAMPLE  SEAl,  C  ELEMENTS,  QUADRANT  ANALYSIS, 
was  rvm  on  SEAl  with  type  C  elements  as  input.  This  type  restricts  the 
simulation  to  a  single  sensor.  Acquisition  times  were  generated  for  this 
sensor  with  a  maximum  range  of  10,000  km.  for  a  duration  of  992  minutes. 

The  acquisition  times  were  not  printed, according  to  the  output  option. 
Observations  were  generated  and  differentially  corrected  with  perturbations. 
Only  the  first  observation  In  each  time  segment  was  printed  as  specified, 
while  no  results  of  the  MOCARO  and  the  SGPDC  units  were  printed. 

The  error  predictions  were  computed  for  40  equally  spaced  points 
In  each  of  four  quadrants  beginning  at  the  time  of  the  last  observation. 

The  statistical  analysis  of  this  data  over  each  quadrant  was  then  used  to 
generate  the  error  trend  In  each  component  of  position  and  velocity  for 
each  quadrant.  Only  the  trends  over  the  first  quadrant  are  displayed  In  the 
output  In  order  to  conserve  space. 

Since  this  case  Is  also  a  Sequence  1  run,  its  Input  cards  also 
conform  with  the  set  shown  in  Figure  2-9.  The  contents  of  the  cards  are 
as  follows; 


JOB  CARO 


Field 


Quantity 


2 

3 


JOB 

EXAMPLE  SEAl,  C  ELEMENTS, 
QUADRANT  ANALYSIS 


RPL  CARD 


Field 


Quantity 


2 

3 


RPL 

4, SEAl, GO 


DUMP  CARDS 
(See  Figure  2-9) 
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JMP  CARD 
(See  Figure  2-9) 


SEA  CARD 


Field 


Quantity 


2 

3 


SEA 

SEAl,  EXAMPLE 


SENSOR  CARD 


Field 


Quantity 


1 

2 

3 

4 
6 


007 

20 

70 

102 

S 


SIMULATION  PARAMETER  CARD 


Field 


Quantity 


1 

2 

3 

4 

5 

6 

7 

8 
9 

12 

13 


007 

0 

AM 

0 

PM 

10000 

1 

1 

2 

2 

I 
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STANDARD  DEVUTION  CARD 


Field 


Quantity 


1 

2 

3 

4 

5 
11 


007 

0.01 

0.01 

100 

1 

M 


ELEMENT  CARD  1 


Field 


Quantity 


1 

2 

3 

4 

5 

6 
V 

10 

11 


318.  *#075 
0.01 
20 
90 
0 

SOUTH  SN 
1 
C 
E 


ELEMENT  CARD  2 


Field 


Quantity 


2 

3 

9 

10 

11 


-.65  X  10 
007 
2 
C 
E 


-6 
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AQTIMT  CONTROL  CARD 


Field 


Quantity 


2 

3 

4 
7 


AQTINT 

CONTROL 

992 

1 


MOCARO  CONTROL  CARO 


Field 


Quantity 


2 

3 

4 

5 


MOCARO 

CONTROL 

80 

29 


SGFDC  CONTROL  CARD 


Field  Quantity 


2 

3 

6 

17 


SGPDC 

CONTROL 

1 

20 


ERPRED  CONTROL  CARD 


Field 


Quantity 


2 

3 

4 

5 

6 
8 


ERFRED 

CONTROL 

2 

0 

0 

40 


The  reproductions  of  the  computer  output  for  this  case  are  displayed  on 
the  following  pages: 
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